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

 

Code:

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

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

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить