In der "uxtheme.dll" gibt es eine Funktion:
Delphi-Quellcode:
type
TIsThemeActive = function: bool; stdcall;
var
IsThemeActive : TIsThemeActive;
die man importieren kann. Ich empfehle dabei den dynamischen Weg, damit das Programm unter 9x/ME/NT/2000 nicht mit einer Fehlermeldung beendet wird. Es sei denn natürlich, das Programm soll nur unter XP laufen.
Da die Funktion
true bzw.
false zurückliefert, sollte es keine Fragen mehr geben.
