Delphi 7: how to check if Windows themes is enabled?

Question

Using Delphi 7, how can I check if Windows has a theme enabled (i.e. is it the classic gray windows look or not)?

Answer 1

You can use the unit UxTheme.pas and call the IsThemeActive function.

Delphi 7 was the first version that shipped with it but it should be possible to use that unit in older versions aswell as it is open source (written by Mike Lischke originally) that just uses WinAPI.

Answer 2

You've to use uxtheme.dll. I use this code in Delphi 5 and it works for me.