//-----------------------------------------------------------------------//

//#######################################################################//
//## Procedure ChangeWallpaper: ##//
//#######################################################################//
//## Datum: Änderung: ##//
//## ====== ========= ##//
//## 10.07.1998 Initial Release ##//
//#######################################################################//
procedure ChangeWallpaper(BmpName: string; Tile: Boolean);
var
  Registry: TRegIniFile;
begin
  Registry := TRegIniFile.Create('Control Panel');
  Registry.WriteString('Desktop', 'Wallpaper', BmpName);
  if Tile then
  begin
    Registry.WriteString('Desktop', 'TileWallpaper', '1');
  end
  else
  begin
    Registry.WriteString ('Desktop', 'TileWallpaper', '0');
  end;
  Registry.Free;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;