Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Запуск прог

Автор: Eros 13.5.2002, 00:12

Доброй ночи!

Как запустить несколько прог одновременно и подождать пока они завершаться?

Спасибо.

Автор: Vit 13.5.2002, 01:58

Вопрос о том чтобы запустить и подождать описан в нашем - FAQ

Автор: Baa 13.5.2002, 02:57

Код


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;

Автор: Baa 13.5.2002, 02:58

Цитата(Vit @ 13.5.2002, 05:58)

Вопрос о том чтобы запустить и подождать описан в нашем - FAQ

А там описано как ждать несколько объектов?

Автор: Baa 13.5.2002, 03:37

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