How To Change The Desktop Wallpaper | |||
| |||
uses Registry, WinProcs; procedure SetWallpaper( sWallpaperBMPPath : String; bTile : boolean ); var reg : TRegIniFile; begin reg := TRegIniFile.Create('Control PanelDesktop' ); with reg do begin WriteString( '', 'Wallpaper', sWallpaperBMPPath ); if( bTile )then begin WriteString( '', 'TileWallpaper', '1' ); end else begin WriteString( '', 'TileWallpaper', '0' ); end; end; reg.Free; SystemParametersInfo( SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE ); end; Tags: Delphi Desktop Wallpaper SPIF_SENDWININICHANGE SPI_SETDESKWALLPAKER SetWallPaper TRegIniFile TileWallpaper Wall Paper Wallpaper | |||
| |||
| |||
Login for comment |