Скачать: CL | DM;

Как из программы запустить 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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c