delphi - 如何获取提升进程的进程句柄？

Question

在 Delphi 10 Seattle 中，我使用这段代码来获取进程的句柄:

uses
  Winapi.Windows;

var
  hp: THandle;
begin
    hp := OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID);

这适用于所有进程，包括 32 位和 64 位。

不幸的是，它不适用于 ELEVATED PROCESSES，它返回 0。

那么如何获取提升进程的进程句柄呢？

Answer 1

简单的答案是您不能这样做。系统说不行。当您调用 GetLastError 时，返回的值将为 ERROR_ACCESS_DENIED。您的进程没有足够的权限获取已提升进程的 PROCESS_QUERY_INFORMATION。

如果您在进程提升时调用 OpenProcess，您将会成功。

或者，您可能能够以低于 PROCESS_QUERY_INFORMATION 的权限获得通过。这很难判断，因为我们不知道您要对这个进程句柄做什么。根据您的评论，您将传递句柄 GetProcessImageFileName，即 documented因为需要 PROCESS_QUERY_INFORMATION 或 PROCESS_QUERY_LIMITED_INFORMATION。