Delphi-PRAXiS - Delphi Wallpaper ermitteln/setzen

Wallpaper ermitteln/setzen - Nachtrag

Ein Wallpaper ermitteln bzw. den Namen und Path holen.

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;