XP: Klassisches Design

[MathiasSimmack]

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.