library MyLib;
{$E wfx}
uses Windows;
type
TProgressProc=function(PluginNr:integer;SourceName,TargetName:pchar;PercentDone:integer):integer; stdcall;
TLogProc=procedure(PluginNr,MsgType:integer;LogString:pchar); stdcall;
TRequestProc=function(PluginNr,RequestType:integer;CustomTitle,CustomText,ReturnedText:pchar;maxlen:integer):bool; stdcall;
function FsInit(PluginNr:integer;pProgressProc:tProgressProc;pLogProc:tLogProc;
pRequestProc:tRequestProc):integer; stdcall;
begin result:=0; end;
function FsFindFirst(path :pchar;var FindData:tWIN32FINDDATA):thandle; stdcall;
var
sql_req:widestring;
begin
sql_req:='_';{Если эта строка выполняеся, то тотал не заходит в плагин}
SetLastError(ERROR_NO_MORE_FILES);
result:=INVALID_HANDLE_VALUE;
end;
function FsFindNext(Hdl:thandle;var FindData:tWIN32FINDDATA):bool; stdcall;
begin result:=false; end;
function FsFindClose(Hdl:thandle):integer; stdcall;
begin result:=0; end;
exports
FsInit, FsFindFirst, FsFindNext, FsFindClose;
end.
|