как работает данная процедура?

[fize]

function S(p:Dword;pv:Pointer;dw:Dword): Integer ; stdcall ; External 'ftd2xx.dll' name 'FT_ListDevices'; //предположительно зачем то обращается к dll

Function N(t: integer): STRING;
var
A: Array [1..6] of char;
Begin
  s(t,@A,$40000000); //вобще не знаю
  Result := A;//это что то очень неопознанное
End;
procedure TForm1.FormShow(Sender: TObject);
begin
 Form1.Caption:=N(0); //тут видимо выводит в caption формы значение N, но зачем там 0 не понятно но без него не работает
end;
end.

подскажите пожалуйста

[MaGWaY_minsk]

Ну, рискну предположить что "s(t,@A,$40000000);" это вызов какой-то процедуры описанной выше, или, даже скорее всего описанной в ftd2xx.dll.
По этому нужно узнать что за процедура S и всё станет ясно.

[Armorer]

S это процедура статически загруженная (загр .после старта программы и до окончания работы прогр.) из ftd2xx.dll.

Название процедуры в dll - "FT_ListDevices". По названию можно предположить что она выводит список устройств.

Яндекс сказал что ftd2xx.dll это библиотека для работы с USB.

Описание функции:

FT_STATUS FT_ListDevices ( PVOID pvArg1,PVOID pvArg2, DWORD dwFlags )
Parameters
pvArg1 Meaning depends on dwFlags
pvArg2 Meaning depends on dwFlags
dwFlags Determines format of returned information

Если описание правильное то лучше описывать её так:

function S(p,pv:Pointer;dw:Dword): Integer;

первые два параметра - указатели на данные которые вернет(?) функция, третий флаг который определяет формат результата.

Function N(t: integer): STRING;
var
A: Array [1..6] of char;
Begin
  s(t,@A,$40000000); //вобще не знаю
  Result := A;//это что то очень неопознанное
End;

N - функция в которой используется S, которая возвращает результат в удобном виде (в отличии от S).

s(t,@A,$40000000);

t - неизвестно что это. В приведенном коде не указано. По логике это указатель на какие-то данные.
@A - указатель на массив символов. Сюда выводится результат.
$40000000 - показывает какой результат нужен.

 Result := A;//это что то очень неопознанное

непонятно, почему это не опознанное просто возвращает результат функции.

Возможно, N должен вернуть строку в которой будут буквы всех устройств подключенных к usb, или что-то подобное.

Form1.Caption:=N(0);

в заголовке появится первая буква, того что вернула s.

Большую часть того что написал, я придумал, т.к. нет документации по dll, что-то может быть неверно.

В общем если найти док. по этой dll то все станет понятно.

Можно было еще написать что за переменная t и какой в итоге результат (что в заголовке формы?)

[fize]

Можно было еще написать что за переменная t и какой в итоге результат (что в заголовке формы?)

я привел весь код программы.

unit Unit1;
interface
uses
 Windows, SysUtils, Forms,  Classes, Controls, StdCtrls;
type
 TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
end;
var
  Form1: TForm1;
implementation
{$R *.dfm}

function S(p:Dword; v:Pointer; w:Dword):Integer;
stdcall;
External 'ftd2xx.dll'
name 'FT_ListDevices';

Function N(i:integer):STRING;
var
A:Array [1..5] of char;
Begin
  s(i,@A,$40000000);
  N := A;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Items.Add ('Found: '+N(0));
end;

end.

что такое t не знаю. сейчас выводится в листбокс серийный номер усб устройства

[raxp]

господа, я конечно извиняюсь, но кто будет читать доки (+ обсуждение + на форуме выложенные) на D2XXUnit.pas (в дельфи) при использовании ftdi драйвера?
см. стр.2,3 - где четко прописано, что по данному адресу (точке входа) идет список проинсталлированных устройств ftdi

[Utkin]

t - неизвестно что это. В приведенном коде не указано. По логике это указатель на какие-то данные.

Возможно это хэндл функции или дллки.