Changer le fond d'écran du bureau Windows


Il y a 2 méthodes pour changer le fond d'écran de Windows 9x/2000/Millenium, selon que l'on veuille utiliser le bureau lui-même ou Active DeskTop. Le bureau lui-même ne gère que les images au format Bitmap (*.bmp). Active Desktop quant à lui a l'avantage de gérer les images au format JPEG (*.jpg, *.jpeg) en fond d'écran, mais il faut qu'il soit installé pour pouvoir l'utiliser.

Pour utiliser le bureau uniquement voici le code:

Changer le fond d'écran du bureau Windows

procedure SetWallPaper(FileName: string);
begin
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(FileName), 1);
end;



Pour utiliser ActiveDesktop, voici le code:

Changer le fond d'écran du bureau Windows (ActiveDesktop)

uses
  Registry;

procedure SetActiveWallPaper(FileName: string);
var
  R: TRegistry;
begin
  R := TRegistry.Create;
  try
    R.RootKey := HKEY_CURRENT_USER;
    R.OpenKey('\Control Panel\Desktop', true);
    R.WriteSting('Wallpaper', FileName);
    DeskTopChange;
  finally
    R.Free;
  end;
end;



La procédure DeskTopChange correspond à l'astuce pour Rafraichir le byreau en utilisant Active Desktop.

3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.007 Secs