Wallpaper ermitteln/setzen

[CalganX]

turboPASCAL hat noch folgende Ergänzung, zum Ermitteln des Wallpapers:

SPI_GETDESKWALLPAPER sollte eigentlich in der Windows.pas von Delphi definiert sein, ist es aber
leider nicht (jedenfalls bei Delphi 5/6)

Delphi-Quellcode:

function GetWallpaperBitmap: String;
const
  SPI_GETDESKWALLPAPER  = $0073;  
var
  wpFName: array [0..MAX_PATH] of Char;
begin
  if SystemParametersInfo(SPI_GETDESKWALLPAPER, MAX_PATH, @wpFName, 0)
    then Result := String(wpFName)
    else Result := '';
end;