Как запустить и подождать завершения 2х процессовDelphi , Программа и Интерфейс , Процессы и СервисыКак запустить и подождать завершения 2х процессов
Автор: Baa 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; P.S. То, что я понаписал нельзя считать цивильным кодом...просто демонстрация работы функции WaitForMultipleObjects ( код позорный...просто жуть...) Статья Как запустить и подождать завершения 2х процессов раздела Программа и Интерфейс Процессы и Сервисы может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Процессы и Сервисы ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |