德尔福 7 : how to check if Windows themes is enabled?

Question

使用 Delphi 7，我如何检查 Windows 是否启用了主题(即它是否是经典的灰色窗口外观)？

Answer 1

可以使用UxTheme.pas单元，调用IsThemeActive函数。

Delphi 7 是它附带的第一个版本，但应该可以在旧版本中使用该单元，而且它是仅使用 WinAPI 的开源软件(最初由 Mike Lischke 编写)。