Delphi Alexandria 64位调用OpenSCManager触发范围检查错误求助

问题根本原因 #

• 64位Windows平台下，SC_HANDLE（OpenSCManager的返回类型）是64位无符号整数类型，而你的函数返回类型声明为Integer——在Delphi中，Integer始终是32位有符号整数（无论32/64位编译）。
• 当OpenSCManager返回超出32位有符号整数范围的64位句柄值时，赋值给Integer类型的Result会触发范围检查错误。
• Delphi Berlin的64位编译对这种类型不匹配的场景未严格触发范围检查，而Alexandria 11.2对类型安全和范围检查的处理更严格，导致问题暴露。
• GetLastError返回0是因为范围检查错误属于Delphi运行时错误，并非Windows API调用失败，此时Windows错误码未被设置。

解决办法 #

修改函数返回类型，将Integer替换为SC_HANDLE（或等价的THandle），这是Windows服务API返回句柄的标准类型：

function TForm1.ConnectToServices(const AServiceName: String; const AMachineName: String): SC_HANDLE;
begin
  Result := 0; // 用0表示无效句柄，替代原-1
  try
    if AMachineName = EmptyStr then
      Result := OpenSCManager(nil, nil, SC_MANAGER_CONNECT)
    else
      Result := OpenSCManager(PChar(AMachineName), nil, SC_MANAGER_CONNECT);
  except
    // API调用失败时检查Result是否为0，再获取错误信息
    if Result = 0 then
      ShowMessage(SysErrorMessage(GetLastError));
  end;
end;

额外注意事项 #

• 后续代码使用返回值时，需按SC_HANDLE规则判断有效性（即是否为0，而非-1）。
• 所有涉及服务句柄的变量、函数参数都应使用SC_HANDLE/THandle类型，避免再次出现类型不匹配问题。
• 若必须保留Integer返回类型（不推荐），可临时关闭该函数的范围检查，但会绕过运行时类型安全检查，存在潜在风险：

{$R-}
function TForm1.ConnectToServices(const AServiceName: String; const AMachineName: String): Integer;
begin
  // 原代码逻辑不变
  Result := -1;
  try
    if AMachineName = EmptyStr then
      Result := Integer(OpenSCManager(nil, nil, SC_MANAGER_CONNECT))
    else
      Result := Integer(OpenSCManager(PChar(AMachineName), nil, SC_MANAGER_CONNECT));
  except
    ShowMessage(SysErrorMessage(GetLastError));
  end;
end;
{$R+}

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