Как отследить запуск и завершение процессов?

[dolphin705]

Здравствуйте, подскажите как отследить запуск и завершение процессов в системе? Хотелось бы логер написать. Спасибо.

[Stilet]

В таймере
Скажем можно использовать функции из модуля PsAPI для получения списка запущенных процессов. Хранить его и при очередном по таймеру получении списка сравнивать с хранимым.

[GunSmoker]

Кроме таймера - WMI. Навесить события на Win32_Process.

[Stilet]

Кроме таймера - WMI.

К сожалению WMI не везде удастся использовать.

[GunSmoker]

Например?

(дибильное ограничение в 10 символов, как оно меня бесит, гори в аду админ)

[QunneD]

Хуки на CreateProcess / TerminateProcess.

ShellExecute, WinExec - это облегченные формы, т.е. они работают через CreateProcess. Поэтому и перехватывать надо его.

[Stilet]

Например?

Win Home без сервиспаков. Бьюсь с ними уже год - никак WMI там нет.
И кстати прикол, котрый меня в шок поврег - антивирус гасит обращение к базе по запросу. Тоже достало жутко.

[GunSmoker]

Win Home без сервиспаков. Бьюсь с ними уже год - никак WMI там нет.

WMI версии 1.0 появился ещё в Win95. WMI 1.5 - начиная с Win2000.

Может речь идёт о конкретном провайдере?

[Stilet]

Может речь идёт о конкретном провайдере?

Точно не скажу. сейчас проверил еще раз - просто нет доступа.
так что пожалуй проблема не в отсутствии wmi а в политике безопасности.
Ладно в эту тему писать свое более не буду...

[Yurk@]

var
  SI: TStartupInfo;
  PI: TProcessInformation;
...
begin
FillChar(SI, SizeOf(SI), 0);
SI.cb := SizeOf(SI);
// запуск процесса
CreateProcess(nil, PChar('rar.exe a -ep1 -m5 '+pdaDir+pdaName+'.RAR '+tmpDir+'PDA_*.DAT '+tmpDir+pdaName+'.UTF'), nil, nil, False, 0, nil, nil, SI, PI);
// ждем пока не закончится
WaitForSingleObject(PI.hProcess, Infinite);
// продолжаем работу
end;