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;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour19/11/2001
VisualisationVu 873 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Systeme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur