Windows XP im Windows 2000 Design

[Gruber_Hans_12345]

Wie erkenne ich das?

Ich muß bei einer Komponente etwas anders malen, wenn es sich um einen Windwos XP rechner handelt, der aber das Design abgeschaltet hat.

Nun suche ich, und finde nix, wie ich das erkennen kann.

[DeddyH]

Schau einmal in die Unit UxTheme, da gibt es entsprechende Funktionen (wenn ich mich recht entsinne, ThemesAvailable und ThemesEnabled).

[edit] Sry, es war die Unit Themes.

Delphi-Quellcode:

  if Themes.ThemeServices.ThemesAvailable then
    begin
      ShowMessage('Themes stehen zur Verfügung');
      if Themes.ThemeServices.ThemesEnabled then
        ShowMessage('Themes sind aktiviert');
    end;

[/edit]

[Gruber_Hans_12345]

Danke