Thema: Delphi Desktophintergrund

Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#3

Re: Desktophintergrund

  Alt 16. Jan 2004, 16:50
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 Hier im Forum suchenHintergrundbild ändern habe ich das gefunden.


Nachtrag: Alex war wohl schneller.
  Mit Zitat antworten Zitat