如何让Embarcadero RAD Studio Delphi 11兼容Windows XP

男娘i 2022-08-28 14:58 407阅读 0赞

![最大默认值][636f2b5b4a0bc8bc6197392dfe763d74.png]

Delphi 11 Windows XP compatibility tweak  
By Michal Mutl  
  
As you likely noticed, Delphi 11 officially does not support Windows XP anymore. You can make your application compatible with XP again by simple set.  
In Project Options|Building|Delphi Compiler|Linking set "Set OS Version fields in PE Headers" and "Set SubSystem Version fields in PE Headers" to "5.1".  
Unless your application uses System.Threading.pas (TTask etc) you should run it under Windows XP with no problems. But if so, then you have to tweak this unit.  
Threading objects actually use in their internals new TThread.GetTickCount64 method, which is hardwired to Windows API GetTickCount64 which is not available in Windows XP API.  
Take this unit from "source\\rtl\\common" folder in Delphi 11 installation. Declare new local function in the beginning of implementation section of this unit like this:

正如您可能注意到的那样，Delphi 11 正式不再支持 Windows XP。您可以通过简单的设置使您的应用程序再次兼容 XP。  
在 Project Options|Building|Delphi Compiler|Linking 中，将“Set OS Version fields in PE Headers”和“Set SubSystem Version fields in PE Headers”设置为“5.1”。

![watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBAeHl6aGFu_size_20_color_FFFFFF_t_70_g_se_x_16][]  
除非您的应用程序使用 System.Threading.pas（TTask 等），否则您应该在 Windows XP 下运行它没有问题。但如果是这样，那么你必须调整这个单元文件。  
线程对象实际上在其内部使用了新的 TThread.GetTickCount64 方法，该方法硬连接到 Windows API GetTickCount64，而 Windows XP API 中没有该方法。  
从 Delphi 11 安装中的“source\\rtl\\common”文件夹中获取这个单元。在本单元的实现部分的开头声明新的本地函数，如下所示：

function _GetTickCount64: UInt64;
    begin
    if TOSVersion.Major<6 then
    Result := TThread.GetTickCount
    else
    Result := TThread.GetTickCount64;
    end;
    and

replace all occurences of TThread.GetTickCount64 calls with \_GetTickCount64.  
For Win32 applications then copy this modified unit to \\lib\\win32\\debug and \\lib\\win32\\release folders in Delphi 11 installation and rename original System.Threading.dcu to e.g. \_System.Threading.dcu.  
Then build your project which uses System.Threading with Debug and Release configuration. New System.Threading.dcu should be created in mentioned folders. After this you should remove modified System.Threading.pas from these folders to prevent its recurrent compilation.  
Now your Delphi 11 Win32 applications should run under Windows XP with no External Exception crash.

并将所有出现的 TThread.GetTickCount64 调用替换为 \_GetTickCount64。对于 Win32 应用程序，然后将此修改后的单元复制到 Delphi 11 安装中的 \\lib\\win32\\debug 和 \\lib\\win32\\release 文件夹，并将原始 System.Threading.dcu 重命名为例如 \_System.Threading.dcu。  
然后构建您的项目，该项目使用 System.Threading 和 Debug 和 Release 配置。应在上述文件夹中创建新 System.Threading.dcu。在此之后，您应该从这些文件夹中删除修改后的 System.Threading.pas 以防止其重复编译。  
现在您的 Delphi 11 Win32 应用程序应该可以在 Windows XP 下运行而不会出现外部异常崩溃。

以下来自2CC.COM 网友 bjlg (蓝天)

其实最好修改system.classes一个地方

class function TThread.GetTickCount64: UInt64;
    {$IF Defined(MSWINDOWS)}
    begin
       if(TOSVersion.Major<6 )then  
      Result := Winapi.Windows.GetTickCount;
      else  
      Result := Winapi.Windows.GetTickCount64;
    end;

在dpr文件加进去：  
\{$SETPEOSVERSION 5.0\}  
\{$SETPESUBSYSVERSION 5.0\}  
  
转自小日本：  
https://qiita.com/ht\_deko/items/e7d3e32dd97b3569e581

![watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBAeHl6aGFu_size_20_color_FFFFFF_t_70_g_se_x_16 1][]

[636f2b5b4a0bc8bc6197392dfe763d74.png]: /images/20220828/7f278d04515141e38ec99726df7f9dca.png
[watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBAeHl6aGFu_size_20_color_FFFFFF_t_70_g_se_x_16]: /images/20220828/96bca73d6d334535bc860a288eb9bfdc.png
[watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBAeHl6aGFu_size_20_color_FFFFFF_t_70_g_se_x_16 1]: /images/20220828/de42e0bb33e44e13b3fd955a4642385a.png