Как запустить приложение и подождать пока оно отработает 6




procedure Start;
var
si: TStartupInfo;
p:  TProcessInformation;
begin
FillChar(Si,SizeOf(Si),0);
with Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Form1.WindowState:=wsMinimized;
Createprocess(nil,'c:\windows\sndrec32.exe e:/temp.wav',nil,nil,false,
Create_default_error_mode,nil,nil,si);
Waitforsingleobject(p.hProcess,infinite);
Form1.WindowState:=wsNormal;
end;


Далее: Как запустить приложение и подождать пока оно отработает 7 »»