delphi – GetVersionEx在Windows 7上不起作用？

发布时间：2020-12-15 04:25:10 所属栏目：大数据来源：网络整理

导读：在我的 Windows 7系统上,当 should返回“6.1”时,GetVersionEx Windows API函数返回“6.0”,表示Windows Vista. 如果重要,我使用以下Delphi代码： function winver: string;var ver: TOSVersionInfo;begin ver.dwOSVersionInfoSize := SizeOf(ver); if GetVe

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

如果重要,我使用以下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)”.

这不是很奇怪吗？

解决方法

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!