zvyagaaa
|
Posted: Mon Oct 24, 2011 20:17 Post subject: |
|
|
Code: | function FsFindFirst(
path :pchar;
var FindData: tWIN32FINDDATA )
: thandle; stdcall;
begin
FillChar( FindData, SizeOf( FindData ), 0 );
StrPCopy( FindData.cFileName, '[Запустить файл]' );
Result := 13;
end;
function FsFindNext(
Hdl: thandle;
var FindData:tWIN32FINDDATA )
: bool; stdcall;
begin
Result := False;
end;
|
|
|