Backround ändern & ExitWindowsEx(...) funzt nich. & Desktop Sperren

[Christian Weber]

Wie kann man Mittels Eines Programmes den Backround des aktuellen Desktops Ändern?
.
.
Die anweisung "ExitWindowsEx(EWX_SHUTDOWN,0)" Funktioniert nicht. hab die anweisung auf einen Button gesetzt, Funktioniert aber nicht. was ist Falsch? Muss ich irgendwas in die USES-liste eintragen? Wenn ja, was?
.
.
Wie Kann ich den Aktuellen Desktop Sperren und die Startleiste Ausblenden?
.
.
Quelltext Erbeten (für alle drei).
.
Danke, Christian Weber.

[shadows]

Ändern des Wallpapers:
In "s" wird der dateiname mit pfad übergeben, den das Bild hat. Kann sein, das du noch was in die uses einbinden mußt, hab es aus einer alten include datei von mir da steht alles mögliche drin.

procedure ChangeWallpaper(s: string);
var
pBitmap : pchar;

begin
s:=s+#0;
pBitmap:=@s[1];
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pBitmap, SPIF_UPDATEINIFILE);
end;

---

Desktop Sperren get mit ausloggen aus dem System. ähnlicher befehl wie das runterfahren.
Zu dem Runterfahren brauchst du noch die berechtigung dazu. Die hat dein Programm nicht automatisch. Die kann sich das Programm auch nur holen, wenn du als admin eingelogt bist. Das Sperren der station funktioniert meines wissens auch so.

Quellcode hab ich nicht griffbereit

[Christian Weber]

Danke...
Funzt