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;

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