如何在Delphi 12 Athens中强制启用RichEdit 4.1版本？

在Windows 11系统的Delphi 12.1中，使用提供的GetRichEditVersion函数检测TRichEdit实例时，始终返回"RichEdit 2.0"，但预期应为4.1或更高版本。以下是问题分析与解决方案：

问题根源 #

1. 检测函数的逻辑缺陷 #

原函数存在两处关键问题：

• 区分大小写的匹配：Windows窗口类名大小写固定（如高版本类名为全大写RICHEDIT50W，RichEdit 3.0类名为混合大小写RichEdit20W），而StrPos是区分大小写的查找函数，若实际类名与判断字符串大小写不匹配，会直接漏判。
• 宽泛的兜底判断：第三个分支只要类名包含"RichEdit"就返回2.0，既错误覆盖了1.0版本（类名为RICHEDIT），也会在前面的版本判断因大小写问题未命中时，误判为2.0。

2. TRichEdit默认使用旧版本控件 #

Delphi的TRichEdit组件默认链接riched20.dll，创建的是RichEdit20W类（对应RichEdit 3.0），而非Windows 11自带的高版本RICHEDIT50W（对应RichEdit 4.1），因此即使系统支持高版本，默认实例也不会调用。

解决方案 #

方案1：修复版本检测函数 #

修改检测函数，使用不区分大小写的精确匹配，同时细化分支逻辑：

function GetRichEditVersion(RichEditHandle: HWND): string;
var
  ClassName: array[0..255] of Char;
begin
  if GetClassName(RichEditHandle, ClassName, Length(ClassName)) > 0 then
  begin
    if SameText(ClassName, 'RICHEDIT50W') then
      Result := 'RichEdit 4.1'
    else if SameText(ClassName, 'RichEdit20W') then
      Result := 'RichEdit 3.0'
    else if SameText(ClassName, 'RICHEDIT') then
      Result := 'RichEdit 1.0'
    else if Pos('RICHEDIT', UpperCase(ClassName)) > 0 then
      Result := 'Unknown RichEdit version'
    else
      Result := 'Not a RichEdit control';
  end
  else
    Result := 'Unable to determine RichEdit version';
end;

说明：通过SameText实现不区分大小写的精确匹配，避免漏判；同时细化分支，防止版本误报。

方案2：让TRichEdit使用高版本控件 #

要创建真正的RichEdit 4.1实例，需让控件调用msftedit.dll中的RICHEDIT50W类，可通过自定义TRichEdit子类实现：

type
  TModernRichEdit = class(TRichEdit)
  protected
    procedure CreateWnd; override;
  end;

procedure TModernRichEdit.CreateWnd;
const
  MSFTEDIT_CLASS = 'RICHEDIT50W';
begin
  // 加载系统自带的msftedit.dll（Windows Vista及以上系统默认包含）
  LoadLibrary('msftedit.dll');
  // 指定使用高版本RichEdit类名
  WindowClass.lpszClassName := MSFTEDIT_CLASS;
  inherited CreateWnd;
end;

使用方法：将项目中原有的TRichEdit控件替换为TModernRichEdit，创建的实例即为RichEdit 4.1版本，此时用修复后的检测函数可返回正确结果。

RichEdit版本对应关系 #

• RichEdit 1.0：类名RICHEDIT，依赖riched32.dll，仅支持ANSI文本
• RichEdit 2.0：类名RichEdit20A（ANSI）/RichEdit20W（Unicode），依赖riched20.dll，支持Unicode
• RichEdit 3.0：类名RichEdit20W，依赖riched20.dll，增强字体处理等功能
• RichEdit 4.1：类名RICHEDIT50W，依赖msftedit.dll，支持缩放等高级功能（Windows Vista及以上系统提供）

内容的提问来源于stack exchange，提问作者user1580348