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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

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;

{/codecitation}

Добавить комментарий