Delphi中PID对应进程已退出时OpenProcess仍返回非0值及检测方法

问题原因 #

你的检测逻辑存在几个常见误区：

1. 进程退出后，内核中的进程对象不会立刻被回收，只要还有未关闭的句柄引用该对象，OpenProcess 仍能通过PID拿到有效句柄，不会返回0
2. PID是系统可复用的资源，即使原进程退出很久，该PID也可能被分配给其他新启动的进程，直接判断OpenProcess返回值会出现误判
3. 你使用的PROCESS_ALL_ACCESS权限请求过高，在权限不足的场景下反而会出现误判（比如没有权限打开目标进程时返回0，你会误以为进程未运行）

正确的判断方法 #

打开进程后，调用GetExitCodeProcess获取进程退出状态，只有返回值为STILL_ACTIVE时，才代表进程正在运行：

procedure TfrmRSM.Button1Click(Sender: TObject);
var
  aHandle: THandle;
  exitCode: DWORD;
begin
  // 仅申请查询进程信息的最低必要权限，兼容性更好
  aHandle := OpenProcess(PROCESS_QUERY_LIMITED_INFORMATION, False, aPID);
  if aHandle = 0 then
  begin
    ShowMessage('is not running');
    Exit;
  end;
  try
    if GetExitCodeProcess(aHandle, exitCode) and (exitCode = STILL_ACTIVE) then
      ShowMessage('is running')
    else
      ShowMessage('is not running');
  finally
    CloseHandle(aHandle);
  end;
end;

备注：如果需要兼容Windows XP系统，将PROCESS_QUERY_LIMITED_INFORMATION替换为PROCESS_QUERY_INFORMATION即可。

更可靠的优化方案 #

如果是你自己通过CreateProcess启动的进程，完全可以在启动时保留返回的进程句柄，不要立刻关闭，后续直接用该句柄判断状态，完全避免PID复用导致的误判：

• 可以直接调用WaitForSingleObject(进程句柄, 0)，返回值为WAIT_TIMEOUT说明进程仍在运行，返回WAIT_OBJECT_0说明进程已退出
• 也可以用前面提到的GetExitCodeProcess直接查询该句柄的状态

内容的提问来源于stack exchange，提问作者Adriaan