从暗黑模式切换回普通主题时触发Access Violation问题排查

你的代码在切换回常规Windows样式时调用TStyleManager.SetStyle(nil)触发了访问违规，问题大概率出在空指针处理和样式资源的冲突上，以下是具体分析和解决办法：

问题成因 #

1. 直接传递nil给SetStyle时，VCL样式管理器可能无法正确处理已加载的暗黑样式钩子资源，导致访问已释放或未初始化的内存。
2. 暗黑标题栏的修改（EnableDarkTitleBar）和VCL样式的切换没有同步，两种修改的资源关联未被正确清理，引发冲突。

解决步骤 #

• 改用系统原生样式恢复，而非传nil
  不要直接调用TStyleManager.SetStyle(nil)，而是使用TStyleManager.SystemStyle来指定系统默认样式，这是更安全的标准用法，能避免空指针相关的异常。
• 同步恢复标题栏样式
  在切换回常规样式前，先调用对应的标题栏恢复函数（比如和EnableDarkTitleBar配对的DisableDarkTitleBar），确保标题栏的修改先被还原，再处理VCL样式。
• 确保样式切换在主线程执行
  VCL控件的所有操作必须在主线程完成，如果EnableDarkMode函数是在非主线程调用的，需要通过TThread.Synchronize同步到主线程执行，否则会引发资源访问异常。

修改后的示例代码 #

procedure EnableDarkMode(dark: boolean; Handle: HWND);
begin
  if dark then begin
    EnableDarkTitleBar(Handle);
    TStyleManager.TrySetStyle('Windows10 Dark');
  end else begin
    // 先恢复标题栏的常规样式
    DisableDarkTitleBar(Handle);
    // 使用SystemStyle恢复系统默认样式
    TStyleManager.SetStyle(TStyleManager.SystemStyle);
  end;
end;

额外排查点 #

如果上述修改后仍有异常，可以尝试：

• 在切换样式前调用TStyleManager.RefreshStyles，强制清理当前样式的关联资源。
• 检查是否存在自定义的TStyleHook子类，确认其Destroy方法是否正确释放了所有资源，避免内存泄漏导致的访问违规。

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