1:
2:
3:
4:

if not SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Pointer(Filename),SPIF_UPDATEINIFILE ) then
    begin
      ShowMessage('Konnte folgende Datei nicht als Desktop-Hintergrund setzen: '+Filename);
    end;                    

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;