编译器不喜欢INVALID_HANDLE_VALUE

Question

我尝试从窗口句柄确定进程的名称（包括路径）：

function PAGetProcessNameFromWnd(Wnd: HWND): string;
var
  ThisList: TStringList;
  PID: DWORD;
  I: Integer;
begin
  Result := '';
  if Winapi.Windows.IsWindow(Wnd) then
  begin
    PID := Winapi.Windows.INVALID_HANDLE_VALUE;
    //PID := SysUtils.INVALID_HANDLE_VALUE;
    Winapi.Windows.GetWindowThreadProcessId(Wnd, @PID);
    ThisList := TStringList.Create;
    try
      if JclSysInfo.RunningProcessesList(ThisList, True) then
      begin
        I := ThisList.IndexOfObject(Pointer(PID));
        if I > -1 then
          Result := ThisList[I];
      end;
    finally
      ThisList.Free;
    end;
  end;
end;

当我构建应用程序时，我经常在此行遇到编译器错误：

PID := Winapi.Windows.INVALID_HANDLE_VALUE;

然后我通过注释来停用此行，并通过取消注释来激活后续行：

PID := SysUtils.INVALID_HANDLE_VALUE;

错误是：

[dcc64错误]：E1012常量表达式违反了子范围边界

然后过了一会儿（随机）编译器抱怨这一行，游戏重新启动，停用此行并重新激活前一行。这无限无疑。这有什么不对？

Answer 1

发生错误是因为INVALID_HANDLE_VALUE定义为：

 INVALID_HANDLE_VALUE = THandle(-1);

哪里

 THandle = NativeUInt;

在64位平台上，这使INVALID_HANDLE_VALUE的大小为8个字节。分配给DWORD（四个字节）是有问题的，因为值（-1）溢出，这在编译时是已知的。 INVALID_HANDLE_VALUE在这里不合适，因为句柄是本机指针的大小，而PID总是DWORD - 你想要一个PID，而不是一个句柄。

GetWindowThreadProcessId有两个签名：

function GetWindowThreadProcessId(hWnd: HWND; lpdwProcessId: Pointer): DWORD; external minuser name 'GetWindowThreadProcessId';
function GetWindowThreadProcessId(hWnd: HWND; var dwProcessId: DWORD): DWORD; external minuser name 'GetWindowThreadProcessId';

在任何一种情况下，都不需要初始化PID变量。来自documentation：

lpdwProcessId

键入：LPDWORD

指向接收进程标识符的变量的指针。如果此参数不为NULL，则GetWindowThreadProcessId将进程的标识符复制到该变量;否则，它没有。

因此，如果您想使用此方法检索PID值，则只需传入变量而不对其执行任何操作。如果没有，只需通过0。