Как отследить закрытие программы

← →
Phantomouse © (2005-01-15 10:29) [0]

Приветствую!
Мне нужно отследить закрытие чужой программы, которую я запустил из своей с помощью функции SHellExecute. Подскажите, как это сделать (желательно с примером кода).

← →
Kerk © (2005-01-15 10:57) [1]

Запускай с помощью CreateProcess
Жди с помощью WaitForSingleObject

← →
Phantomouse © (2005-01-15 11:09) [2]

А примерчик кода можно? Просто хелп читать времени нет... Проект надо сдавать до обеда, а мелочь такую для эргономичности не получается дописать (

← →
Kerk © (2005-01-15 11:11) [3]

procedure Run;
var SI:_STARTUPINFOA;
PI:_PROCESS_INFORMATION;
begin
FillChar(SI,sizeof(SI),0);
SI.cb:=Sizeof(SI);
FillChar(FPI,sizeof(FPI),0);
CreateProcess(nil,PAnsiChar({командная строка}),
nil,nil,false,0,nil,nil,SI,PI);
WaitForSingleObject(PI.pHandle,0); // ждять до выключения компа
end;

Как отследить закрытие программы Найти похожие ветки