Hintergrundbild

[Duffy]

Hallo Moyyer

Delphi-Quellcode:

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

//#######################################################################//
//## 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;

Ist ein alter Code, und ich habe ihn nicht getestet. Sollte aber funktionieren.
bye