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;