Mega Code Archive

 

Categories / Delphi / System

 

How to change the wallpaper in Windows 95NT Wallpaper

Title: How to change the wallpaper in Windows 95/NT Wallpaper Question: Answer: var Reg: TRegIniFile; begin Reg := TRegIniFile.Create('Control Panel'); Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\mybmp.bmp'); Reg.WriteString('desktop', 'TileWallpaper', '1'); Reg.Free; SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE); end;