delphi - GetVersionEx 无法在 Windows 7 上运行？

Question

在我的 Windows 7 系统上，GetVersionEx Windows API 函数返回“6.0”，表示 Windows Vista，当它 should 时返回“6.1”。

如果重要的话，我使用了以下 Delphi 代码:

function winver: string;
var
  ver: TOSVersionInfo;
begin
  ver.dwOSVersionInfoSize := SizeOf(ver);
  if GetVersionEx(ver) then
    with ver do
      result := IntToStr(dwMajorVersion) + '.' + IntToStr(dwMinorVersion) + '.' + IntToStr(dwBuildNumber) + ' (' + szCSDVersion + ')';
end;

并返回字符串“6.0.6002 (Service Pack 2)”。

这不是很奇怪吗？

Answer 1

我现在发现当我的应用程序通过 Delphi 2009 调试器运行时 GetVersionEx 返回 Vista，但当应用程序单独执行时返回 Windows 7。我还发现 RAD Studio(Delphi IDE)实际上在 Windows Vista SP2 的兼容模式下运行。因此，一切都是有道理的，因为正如 kibab 所指出的，子进程将“继承”其父进程的兼容性设置。