Как из программы запустить exe файл?

← →
Mishenka (2003-05-31 12:23) [0]

Как из программы запустить exe файл и вообще выполнить любую командную строку?

← →
ZEE (2003-05-31 12:29) [1]

uses ShellApi;
...
var command,params,workdir:string;
...
//command - имя файла
//params - параметры
//workdir - рабочий каталог
ShellExecute(handle,"open",@command[1],@params[1],@workdir[1],sw_shownormal)

← →
Armen (2003-05-31 12:38) [2]

function ExecuteApp(App: string; CmdLine: string): boolean;
var
proc_info: TProcessInformation;
startinfo: TStartupInfo;
begin
FillChar(proc_info, sizeof(TProcessInformation), 0);
FillChar(startinfo, sizeof(TStartupInfo), 0);
startinfo.cb := sizeof(TStartupInfo);
result:= CreateProcess(PAnsiChar(App), PAnsiChar(CmdLine),
nil, nil, false, NORMAL_PRIORITY_CLASS,
nil, nil, startinfo, proc_info);
end;

← →
Sceleton (2003-05-31 12:45) [3]

Function Exec(const CmdLine, CmdParams: String; const CmdShow: Integer): Boolean;
Begin
result:=(ShellExecute(GetCurrentProcess, "open", PChar(CmdLine), PChar(CmdParams), "", CmdShow)>32);
End;

← →
Yanis (2003-05-31 13:14) [4]

Удалено модератором
Примечание: Круче только яйца

← →
P@SHA (2003-05-31 23:54) [5]

> var command,params,workdir:string;

не String а PChar

Как из программы запустить exe файл? Найти похожие ветки