Текущий архив: 2003.04.14;
Скачать: CL | DM;

Вниз

ShellExecute or WinExec   Найти похожие ветки 

← →
Dimosha   (2003-04-01 17:51) [0]

Как запустить другую программу с параметрами в строке - понятно, а вот как дождаться ее выполнения ???

---

← →
Leran2002   (2003-04-01 17:55) [1]

procedure RunAndWait({AppH:THandle;}NameS,PrmS,DirS:string;ShwMod:integer);
var
Info:TShellExecuteInfo;
begin
FillChar(Info,SizeOf(Info),0);
with Info do begin
cbSize:=SizeOf(TShellExecuteInfo);
fMask:=SEE_MASK_NOCLOSEPROCESS;
Wnd:={AppH}0;
lpFile:=PChar(NameS);
lpParameters:=PChar(PrmS);
lpDirectory:=PChar(DirS);
nShow:=ShwMod;
end;
if ShellExecuteEx(@Info) then WaitForSingleObject(Info.hProcess,INFINITE);
end;

---

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

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх

Память: 0.43 MB
Время: 0.006 c