Windows XP und XP-Stil erkennen

[Mario]

Hallo,

ich habe die Ressourcen in mein Programm eingebunden, um Delphi 6 den XP-Style nutzen zu lassen. Damit Karteireiter auch die richtigen Farben verwenden, nutze ich folgende Funktion:
 IF isWinXP THEN PanelBack.Color := clWindow; isWinXP ist eine Funktion, die nur das Betriebssystem überprüft. PanelBack ist ein Panel, wo ein Pagecontrol drauf liegt, welches dann automatisch die Farbe vom Panel übernimmt.

Das funktioniert ganz gut: Ist es kein Windows XP, so bleibt alles beim alten. Ist es Windows XP, so wird das Panel und damit auch das PageControl wie clWindow. Nur, wenn der Anwender und XP den klassischen Look, wie Windows 2000 wählt, geht das natürlich schief.

Wie kann ich unter XP prüfen, ob die neue Oberfläche auch tatsächlich angeschalten ist?

[Luckie]

Das Schema müßte in der Registry zu finden sein.

[MathiasSimmack]

Entweder da, oder hier im Forum: XP: Klassisches Design

[Luckie]

Hm. Das ist natürlich die elegantere Methode.

[Mario]

Danke, der Link hat das Problem gelöst

[Assarbad]

Und warum ist dies dann immernoch eine "offene Frage"???

[Mario]

Sorry, korrigiert.