VPF::Запуск прог - Форум программистов

Eros

Дата 13.5.2002, 00:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 7.5.2002

Репутация: нет
Всего: нет

Доброй ночи!

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

Спасибо.

Vit

Дата 13.5.2002, 01:58 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 1
Всего: 207

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

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Baa

Дата 13.5.2002, 02:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: нет
Всего: 12

Код


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;

--------------------

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

Baa

Дата 13.5.2002, 02:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: нет
Всего: 12

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

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

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

--------------------

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

Baa

Дата 13.5.2002, 03:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: нет
Всего: 12

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »