Delphi2007，XE2 调用GetVersionEx在Win10下为6.1的原因及解决方法

最新推荐文章于 2021-12-07 21:52:59 发布

左眼看成爱

最新推荐文章于 2021-12-07 21:52:59 发布

阅读量2.6k

点赞数

分类专栏： Delphi 文章标签： GetVersionEx DelphiXE2 .manifest Win10 取不到

本文链接：https://blog.csdn.net/wh445306/article/details/101284165

版权

在Delphi2007和XE2中，使用GetVersionEx函数获取系统版本时返回6.1，而非Win10的正确版本。原因是微软的改动。解决方案是创建包含特定内容的.manifest文件，将其编译为资源文件并添加到DPR，或者在DelphiXE及以上版本直接添加.manifest文件进行编译。确保生成的EXE独立运行以应用.manifest。

摘要由CSDN通过智能技术生成

procedure TForm1.Button2Click(Sender: TObject);
var
  OsInfo: TOSVersionInfo;
const
  s = '主编号: %d' + sLineBreak +
      '次编号: %d' + sLineBreak +
      '建立编号: %d' + sLineBreak +
      '作业平台: %d' + sLineBreak +
      '更多说明: %s';
begin
  OsInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo); {先根据大小要内存}

  GetVersionEx(OsInfo);
  ShowMessage(Format(s, [OsInfo.dwMajorVersion,
                         OsInfo.dwMinorVersion,
                         OsInfo.dwBuildNumber,
                         OsInfo.dwPlatformId,
                         OsInfo.szCSDVersion]));
end;