Theme Func von C nach Delphi

[adecke]

Hallo Robert,

habe mal in die Jedi-API reingeschaut. Auch hier gibt es z.B. die Funktionen
OpenThemeFile, ApplyTheme und CloseThemeFile nicht. Eigentlich möchte ich
nur für Windows XP das Themes (Design) ändern (Global).

Die ganze Sache mit Themes und Schemes ist unter XP sehr undurchsichtig. So
gibt es zwar eine Funktion:

Delphi-Quellcode:

Function EnableScheme(sName: String): LongInt;
Var
  Handle            : THandle;
  DeskSetCurrentScheme: TDeskSetCurrentScheme;
Begin
  Handle := LoadLibrary('desk.cpl');
  If Handle <> 0 Then Begin
    DeskSetCurrentScheme := GetProcAddress(Handle, 'DeskSetCurrentScheme');
    Try
      Result := DeskSetCurrentScheme(sName);
    Except
    End;
  End;
End;

aber wie zu sehen nur über den Import aus der "Desk.cpl". Zumal damit auf Windows-Standard
geschaltet wird. D.h. hiermit wird kein Themes geschaltet sondern das herkömmliche Windows
Outfit. Bis dato konnte ich keine Funktion auftun, welches dies mit einem Themes macht.

Wie gesagt, es geht mir nicht darum einer Application ein Thema zu verpassen, sondern Windows global auf ein Themes zu schalten.

gruss Andreas