Changer l'image du bureau

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;