Как проверить, есть ли процесс с указаным PID

[lollollollol]

Здравствуйте.

Я знаю PID процесса, задача определить, жив ли он.


Делаю это так:

function CheckProcess(ControlPID:integer):boolean;
var
  hProcess:Cardinal;
begin
  hProcess := OpenProcess(PROCESS_TERMINATE, FALSE, ControlPID);
  if (hProcess<>0) then begin
    CloseHandle(hProcess);
    result:=True;
  end else begin
    result:=False;
  end;
end;

Но проблема в том, что если при первой проерке процесс был жив, даже после смерти процесса эта функция всегда скажет что процесс живой.

Как исправить проблему?
Как определить есть ли процес с указаным PID?

(Вариант с получение полного писка процессов не рассматриваю, так как есть много ресурсов)



Спасибо

[waleri]

Получить HANDLE процесса, потом ждать его завершения через WaitForSingleObject функцию.

[lollollollol]

бред, а если я проверяю сразу 20 процессов, мне создавать 20 доп потоков? Мне может нужно раз в час проверить жив ли процесс.

Т.е. мне нужно открыть процесс, если успех - процесс живой.

Что я и делаю. Но я не понимаю почему после смерти процесса он всё равно считается живым.

добавлю:

1. Создаю ПРОВЕРЯЕМЫЙ процесс, назовём a
2. Создаю 2 ПРОЕРЯЮЩИХ процесса, назовём b и c
3. В процессе b проверяю процесс a - живой
4. Завершаю процесс a
5. В процесса b проверяю процесс a - ЖИВОЙ
6. В процессе c проверяю процесс a - НЕ живой.

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

[Пепел Феникса]

WaitForMultipleObjects не?

Но я не понимаю почему после смерти процесса он всё равно считается живым.

вы не проверяете процесс на тот факт жив он или нет.
вы проверяете сущеествование процесса с указанным PID, это разное.
процесс существует пока выполняется и пока имеет на себя незакрытые ссылки.(может у вас в другом месте хэндл висит?)

[waleri]

Тогда раз в час вызывайте GetExitCodeProcess()

[lollollollol]

а разве CloseHandle(hProcess); недостаточно?

Тогда раз в час вызывайте GetExitCodeProcess()

так работает, но я не понимаю почему мой код не работает.

[waleri]

Вот здесь объяснение:
http://programmersforum.ru/showpost....31&postcount=4

[lollollollol]

вы не проверяете процесс на тот факт жив он или нет.
вы проверяете сущеествование процесса с указанным PID, это разное.
процесс существует пока выполняется и пока имеет на себя незакрытые ссылки.(может у вас в другом месте хэндл висит?)

Ну верно, процесс завершил - его больше не существует. Это меня и интересует.
Процесс я открываю только в одном месте и только кодом который я указал.
После заверения процесса все проги типа ProcesExplorer и т.д. показывают что процесса больше нет.

А мой софт всё равно говорит что он есть.

Получается что после вызова OpenProcess и CloseHandle, по факту хендл не закрывается? ЧТо ещё требуется сделать чтобы коректно закончить работу с процессом?

[waleri]

Скорее всего ControlPID содержит номер другото процесса.
Мне трудно поверить, что OpenProcess откроет несуществующий процесс.
Отладчик и вперед...

Edit:
О, сегодняшняя статья в тему:
http://blogs.msdn.com/b/oldnewthing/.../10642343.aspx

[lollollollol]

ControlPID точно содержит верный номер.

Как минимум потому что я добавил GetExitCodeProcess после получения хендла, и всё работает как надо.

Да и проверить мою беду не так и сложно, 15-20 минут времени. Как воссоздать проблему я подробно описал в сообщении номер 3