Código Delphi [-] function GetWallpaperBitmap(): string; const SPI_GETDESKWALLPAPER = $0073; var wpFName: array [0..MAX_PATH] of char; begin SystemParametersInfo(SPI_GETDESKWALLPAPER,MAX_PATH,@wpFName,0); result := wpFName; end;
function GetWallpaperBitmap(): string; const SPI_GETDESKWALLPAPER = $0073; var wpFName: array [0..MAX_PATH] of char; begin SystemParametersInfo(SPI_GETDESKWALLPAPER,MAX_PATH,@wpFName,0); result := wpFName; end;