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

灰太狼 2023-10-10 09:11 17阅读 0赞

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;

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doNDQ1MzA2_size_16_color_FFFFFF_t_70][]

Delphi2007,XE2下居然均返回6.1，而在最新的Delphi10.x下是正常的，可以取到正确的10.0 百度了一下，找到原因：

原来是微软搞的鬼

[https://docs.microsoft.com/zh-cn/windows/win32/api/sysinfoapi/nf-sysinfoapi-getversionexa?redirectedfrom=%20MSDN][https_docs.microsoft.com_zh-cn_windows_win32_api_sysinfoapi_nf-sysinfoapi-getversionexa_redirectedfrom_20MSDN]

解决方法：

DelphiXE以下的版本没有自定义.manifest功能的，将下列内容复制保存为xxx.manifest，编码为UTF-8，并编译为res文件加入dpr文件中编译为资源文件问题即可解决

<?xml version="1.0" encoding="UTF-8"?> 
    <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> 
        <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1"> 
            <application> 
                 
                <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>
                
                <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
                
                <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/> 
                
                <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
                
                <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
            </application> 
        </compatibility>
    </assembly>

**操作顺序：**

1，将文件保存为：win10.rc

1 24 win10.manifest
    
    //1,代表资源编号
    //24,资源类型为RTMAINIFEST

2，将RC文件编译为资源文件

brcc32.exe  win10.rc

3，生成win10.RES 文件  
4，打开工程文件(DPR)  
在\{$R \*.RES\}后面追加  
\{$R 'win10.RES'\}  
编译工程文件，得到EXE文件：  
**(注意：生成的EXE要单独执行才会加载这个.manifest文件，在IDE中运行是无效的，特别提醒)**

**DelphiXE以上直接如下图加入该.manifest文件编译即可**

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doNDQ1MzA2_size_16_color_FFFFFF_t_70 1][]

**运行程序GetVersionEx（）成功返回正确的版本数据:**

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doNDQ1MzA2_size_16_color_FFFFFF_t_70 2][]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doNDQ1MzA2_size_16_color_FFFFFF_t_70]: https://img-blog.csdnimg.cn/20190924151023642.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doNDQ1MzA2,size_16,color_FFFFFF,t_70
[https_docs.microsoft.com_zh-cn_windows_win32_api_sysinfoapi_nf-sysinfoapi-getversionexa_redirectedfrom_20MSDN]: https://docs.microsoft.com/zh-cn/windows/win32/api/sysinfoapi/nf-sysinfoapi-getversionexa?redirectedfrom=%20MSDN
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doNDQ1MzA2_size_16_color_FFFFFF_t_70 1]: https://img-blog.csdnimg.cn/20190924145629625.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doNDQ1MzA2,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doNDQ1MzA2_size_16_color_FFFFFF_t_70 2]: https://img-blog.csdnimg.cn/20190924151103538.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doNDQ1MzA2,size_16,color_FFFFFF,t_70