TOSVersion给出了错误的结果

Ene*_*ğlu 5 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)
Run Code Online (Sandbox Code Playgroud)

可能导致什么问题?

清单文件设置自动生成.没有.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>
Run Code Online (Sandbox Code Playgroud)

Ser*_*yuz 6

可能的原因是兼容性修复(垫片)应用于客户端计算机上的可执行文件; 特别是WinXPSP3VersionLie修复程序. TOSVersionrecord用于GetVersionEx确定其类构造函数中的OS版本,该版本由文档中的填充程序实现.

验证的一种方法是检查事件日志.将记录一个事件,即通过程序属性对话框(支持文章)或程序兼容性助手应用程序兼容性工具包应用修复程序的用户.您可以在中搜索可执行文件的名称

Event Log\Application and Services\Microsoft\Windows\Application-Experience\Program-Telemetry
Run Code Online (Sandbox Code Playgroud)