Окончание работы внешней программы.

← →
zamkom © (2004-03-09 11:57) [0]

Уважаемые мастера, есть трабла
запускаю на выполнение внешнюю ДОС программу с помощью winexec, как узнать что она завершила свою работу.

← →
Гаврила (2004-03-09 12:25) [1]

FAQ

CreateProcess вместо WinExec
+ WaitForSingleObject

procedure RunAndWait(prg:String);
var
si:TStartupInfo;
p:TProcessInformation;
begin
FillChar(Si,SizeOf(Si),0);
with Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Createprocess(nil,PAnsiChar(prg),nil,nil,false,Create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infinite);
end;

Окончание работы внешней программы. Найти похожие ветки