Total Commander

Код: Выделить всё

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;