function FsExecuteFile(MainWin:thandle;RemoteName,Verb:pchar):integer; stdcall;
var tempname:string;
Begin
//Запуск файла
result:=FS_EXEC_OK;
   tempname:= RemoteName;
if tempname='\[Запустить файл]' then
MessageBox (FindTCWindow,PAnsiChar(tempname),verb,MB_OK+MB_IconInformation);
End;

 function FsPutFile(LocalName,RemoteName:pchar;CopyFlags:integer):integer; stdcall;
begin
//Копирование файла в файловую систему плагина
RemoteName:=LocalName;
result:=FS_FILE_OK;
end;

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;