Запуск внешней программы и ожидание ее завершения в Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  si : Tstartupinfo;
  p : Tprocessinformation;
begin
  FillChar( Si, SizeOf( Si ) , 0 );
  with Si do
  begin
    cb := SizeOf( Si);
    dwFlags := startf_UseShowWindow;
    wShowWindow := 4;
  end;
  Application.Minimize;
  Createprocess(nil,'notepad.exe',nil,nil,false, Create_default_error_mode,nil,nil,si,p);
  Waitforsingleobject(p.hProcess,infinite);
  Application.Restore;
end;
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий