Hi!
Das hat Duffi mal gepostet:
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;
Es geht mit Bitmaps.
Achja, die
DP hat eine geniale Suchfunktion, mit
Hintergrundbild ändern habe ich das gefunden.
Nachtrag: Alex war wohl schneller.