Entwickler-Ecke

Windows API - Desktop-Hintergrund ändern


ZeitGeist87 - Mi 30.08.06 12:00
Titel: Desktop-Hintergrund ändern
Da gewisse User in der Shoutbox fragen^^ hier die Lösung

Folgende Procedure ändert das Hintergrundbild des Desktops. Es muss der komplette Dateiname (inkl. Pfad) des Bildes übergeben werden:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
procedure SetBackground(const AFilename: String);
begin
 if not SystemParametersInfo(SPI_SETDESKWALLPAPER,
                             0,
                             PChar(AFilename),
                             SPIF_SENDCHANGE OR SPIF_UPDATEINIFILE) then
   RaiseLastOSError;
End;


LG
Stefan


teamrocket0 - Mi 07.02.07 14:20

Hm. Irgendwie werde ich das Gefühl nicht los das er mich damit meinte!^^