Windows - alterando wallpaper

Top  Previous  Next

procedure ChangeWallpaper(Bitmap: string); 

var 

  pBitmap : string; 

begin 

  pBitmap:='C:\x.txt'

  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(pBitmap), SPIF_UPDATEINIFILE); 

end