delphi - TOSVersion 给出错误的结果

标签 delphi delphi-10.1-berlin

我在他的计算机上安装了 64 位 Windows 7 客户端。下面的相同代码在虚拟应用程序和我的应用程序中给出了不同的结果。我的应用程序是小组项目,有 25 个包。

TOSVersion.Name: Windows 7
TOSVersion.ToString: Windows 7 Service Pack 1 (Version 6.1, Build 7601, 64-bit Edition)

TOSVersion.Name: Windows XP
TOSVersion.ToString: Windows XP Service Pack 3 (Version 5.1, Build 2600, 64-bit Edition)

什么可能导致问题?

list 文件设置自动生成。没有 .manifest 文件,但我可以在两个项目的 .res 文件中找到“supportedOS”条目。它们都有相同的内容,如下所示:

<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1"> 
    <application> 
        <!--The ID below indicates app support for Windows Vista -->
        <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/> 
        <!--The ID below indicates app support for Windows 7 -->
        <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
        <!--The ID below indicates app support for Windows 8 -->
        <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
        <!--The ID below indicates app support for Windows 8.1 -->
        <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
        <!--The ID below indicates app support for Windows 10 -->
        <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>          
    </application> 
</compatibility>

最佳答案

可能的原因是兼容性修复 (a shim)应用于客户端计算机上的可执行文件;特别是 WinXPSP3VersionLie使固定。 TOSVersion 记录使用 GetVersionEx 来确定其类构造函数中的操作系统版本,该版本受填充程序影响为 documented .

一种验证方法是检查事件日志。将记录通过程序属性对话框 ( support article ) 应用修复的用户或 Program Compatibility Assistant 的事件。 ,或通过Application Compatibility Toolkit 。您可以在

中搜索可执行文件的名称
Event Log\Application and Services\Microsoft\Windows\Application-Experience\Program-Telemetry

关于delphi - TOSVersion 给出错误的结果,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47905760/

相关文章:

delphi - Delphi Berlin数据断点无效的地址/数据断点的地址使我难以理解

sqlite - 为什么行尾的char(10)符号丢失?

delphi - 在SDI Delphi应用程序中组织窗口

mysql - TADOConnection 在 delphi xe2 64 位中不起作用

android - BASE64 编码和解码不起作用

delphi - const 记录参数的 [Ref] 属性有用吗?

delphi - 绘制透明缩放PNG

delphi - 进程间通信

android - MultiView 首秀,FPS 很低的动画

delphi - 访问冲突 - 如何查找原因?