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