Desktop Darstellung ändern

[adecke]

Hallo,

hab die halbe nacht gesucht und nichts gefunden.
Möchte gerne den Desktop anpassen läuft im Moment so.

Delphi-Quellcode:

procedure SetColors
var 
 Element: Integer;
 NewColor: TColor;
begin
 NewColor := clRed;
 Element := color_background;
 SetSysColors(Element, Element, NewColor);

 PostMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,0); 
 // Diverse Message wurden getestet z.B. auch WM_SYSCOLORCHANGE
end;

Das System übernimmt auch die Farbe. Leider ist dies aber nur
temporär. Nach einem Logoff/Reboot steht die alte Farbe wieder
drin. Irgenwie muss es doch möglich sein die Einstellung permanent
zu halten. Geht ja über den Dialog auch. Bin um jede Hilfe od. Tip
dankbar.

gruss adecke