Desktop-Hintergrund ändern |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Folgende Procedure ändert das Hintergrundbild des Desktops. Es muss der komplette Dateiname (inkl. Pfad!) des Bildes übergeben werden:
procedure SetBackground(const AFilename: String);
begin
if not SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(AFilename),
SPIF_SENDCHANGE OR SPIF_UPDATEINIFILE) then
RaiseLastOSError;
end;
RaiseLastOSError ist erst ab Delphi 6 verfügbar. Programmierer, die mit älteren Versionen arbeiten müssen an dieser Stelle RaiseLastWin32Error verwenden.Achten Sie darauf, dass nicht jedes Betriebssystem alle Bildformate als Hintergrundbild unterstützt. Erst neuere Betriebsssteme unterstützen beispielsweise Hintergrundbilder im JPEG-Format. Notfalls müssen Sie das Bild zuvor in ein Bitmap konvertieren (siehe Verweise).Übergeben Sie der Procedure einen Leerstring, wenn Sie kein Hintergrundbild anzeigen möchten.
Ähnliche Seiten: