如何在Delphi的Windows Ribbon Framework中恢复深色模式支持？

问题本质 #

Windows资源管理器的Ribbon深色模式基于WinUI渲染体系，和Delphi所用的传统Windows Ribbon API（UIRibbon.dll）底层逻辑完全不同。2020版Delphi能生效是因为当时框架对未公开属性UI_PKEY_DarkModeRibbon仍兼容，后续微软更新UIRibbon.dll后封掉了该属性的直接调用，导致现在调用返回E_INVALIDARG。

可行解决方法 #

方法1：适配系统主题通知，调用官方兼容接口 #

Windows Ribbon API支持通过主题变更消息同步深色模式，无需调用未公开属性：

1. 监听系统WM_SETTINGCHANGE消息，检测到主题变更时刷新Ribbon：

procedure WMSettingsChange(var Msg: TMessage); message WM_SETTINGCHANGE;

procedure TMainForm.WMSettingsChange(var Msg: TMessage);
var
  Framework: IUIFramework;
begin
  inherited;
  if (Msg.wParam = SPI_SETDESKWALLPAPER) or (PChar(Msg.lParam) = 'ImmersiveColorSet') then
  begin
    Framework := GetRibbonFramework; // 替换为你的Ribbon Framework实例获取逻辑
    if Assigned(Framework) then
      Framework.InvalidateUICommand(UI_ALL_COMMANDS, UI_INVALIDATIONS_PROPERTY, nil);
  end;
end;

2. 确保Ribbon XML的ApplicationDefaults节点设置Theme="Auto"：

<ApplicationDefaults>
  <Theme>Auto</Theme>
</ApplicationDefaults>

方法2：手动子类化Ribbon窗口，强制深色渲染 #

如果官方接口无效，可通过子类化Ribbon窗口拦截绘制消息：

1. 通过IUIFramework::GetHWND获取Ribbon的窗口句柄；
2. 子类化窗口，拦截绘制消息并强制深色背景：

var
  OldRibbonWndProc: TFarProc;

procedure SubclassRibbonWindow(RibbonHWND: HWND);
begin
  OldRibbonWndProc := SetWindowLongPtr(RibbonHWND, GWLP_WNDPROC, @RibbonSubclassProc);
end;

function RibbonSubclassProc(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  ClientRect: TRect;
begin
  case uMsg of
    WM_ERASEBKGND:
    begin
      GetClientRect(hWnd, ClientRect);
      FillRect(TDC(wParam), ClientRect, GetStockObject(GRAY_BRUSH)); // 替换为合适的深色刷
      Result := 1;
      Exit;
    end;
    // 按需处理WM_PAIN等其他绘制消息，调整控件文字对比度
  end;
  Result := CallWindowProc(OldRibbonWndProc, hWnd, uMsg, wParam, lParam);
end;

注意：这种方法需要处理大量控件绘制细节，可能出现文字与背景对比度问题，需额外调整。

方法3：回退到2020版兼容层 #

提取2020版Delphi中UIRibbon.pas、UIRibbonPropertyStore.pas等核心文件，替换当前项目对应文件，同时打包旧版本UIRibbon.dll到程序目录，确保版本兼容。

关于Windows资源管理器的实现逻辑 #

资源管理器的Ribbon基于WinUI 3重写，直接集成系统深色模式引擎，能自动同步系统设置，和Delphi所用的传统Ribbon API渲染路径完全不同，无法直接照搬。

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