|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
Re: Windows XP im Windows 2000 Design
26. Feb 2010, 14:32
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]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|