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;