How To Change The Desktop Wallpaper

Change the wallpaper of your system by code

 

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;