Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как запустить и подождать завершения 2-х процессов?

01.01.2007
procedure HzChe;
var
hProcess
: array [0..1] of Cardinal;
struc1
: PSTARTUPINFO;
struc2
: PROCESS_INFORMATION;
begin
 
if not CreateProcess ( PChar('c:\PSTOLD.EXE') ,
nil,
nil,
nil,
False,
NORMAL_PRIORITY_CLASS
,
nil,
nil,
struc1
^,
struc2
) then ShowMessage ( 'Zhopa kakaya-to');
  hProcess
[0] := struc2.hProcess;
if not CreateProcess ( PChar('c:\PSTOLD1.EXE') ,
nil,
nil,
nil,
False,
NORMAL_PRIORITY_CLASS
,
nil,
nil,
struc1
^,
struc2
) then ShowMessage ( 'Zhopa kakaya-to');
hProcess
[1] := struc2.hProcess;
 
if WaitForMultipleObjects ( 2, @hProcess, True, INFINITE ) = 1 then
   
ShowMessage ('    vce, priehali' );
end;

P.S.

То, что я понаписал нельзя считать цивильным кодом...просто демонстрация работы функции WaitForMultipleObjects ( код позорный...просто жуть...)

Автор: Baa

Взято с Vingrad.ru https://forum.vingrad.ru