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

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

Объявляем сначала две глобальные переменные:

var
  si: Tstartupinfo;
  p: Tprocessinformation;

Затем по нужному событию, например, по нажатию на кнопке пишет такой код:

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, p);
Waitforsingleobject(p.hProcess, infinite);
Form1.WindowState:=wsNormal;

Ремонт радиаторов Альфа Ромео. Ремонт радиаторов японских автомобилей. . FORD FOCUS 3 - выгода 45 000 руб - ford focus 3. Автомобили FORD. . оборудование для маркировки . Делает срочный ремонт компьютеров. Срочный ремонт компьютеров в россии. .