Comment changer l'image Bitmap en fond d'écran du bureau ?

Version imprimable

22/06/2004, 18h59
Maddelphi

Comment changer l'image Bitmap en fond d'écran du bureau ?
salut,

Je veux réaliser un petit programme qui puisse modifier le fond d'écran
J'ai réussie a le faire uniquement avec les .bmp donc ma question est comment afficher les autre extensions?
Code:

1 2 SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(Image.text),SPIF_SENDWININICHANGE);
D'aileurs je voudrais savoir comment les mettre en mosaique, centrer, etirer?

Merci pour vos reponse.

PS: J'ai touché aux stratégies (pour ce qui connaissent) j'ai autorisé l'affichage autre que .bmp est cela ne marche toujours pas il affiche l'image dans le "propriétés d'affichage" mais pas sur le bureau!!!

Plusieurs moyens sont possibles. Tu peux utiliser :

Code:

1
2
3
4
5
6
7
8
9
procedure ChangeWallpaper(bitmap: string);       {bitmap contains filename: *.bmp}
 
var pBitmap : pchar;
 
begin
 bitmap:=bitmap+#0;
 pBitmap:=@bitmap[1];
 SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pBitmap, SPIF_UPDATEINIFILE);
end;

22/06/2004, 22h33
Nono40
Je croyais que Delphi allouait toujours un octet en plus sur le type String et qu'il était toujours à zéro d'ou le transtypage facile Pchar(VarDeTypeString) ?

Dans ce cas on peut raccourcir :
Code:

1 2 3 4 procedure ChangeWallpaper(bitmap: string); {bitmap contains filename: *.bmp} begin SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @Bitmap[1], SPIF_UPDATEINIFILE); end;
22/06/2004, 22h52
Maddelphi

cela ne fonctionne pas pour les extensions autre que bmp
22/06/2004, 22h58
Nono40

Oui, car il faut activer ActiveDesktop pour que les autres formats d'images soient supportés. :wink:
22/06/2004, 23h06
Maddelphi

Mon ActiveDesktop est activé et poutant les autres extensions ne s'affiche pas.
Mais lorsque j'ouvre la fenetre "propriétés d'affichage" je peux admirer les images qui ne s'affichent pas dans le bureau?!
meme par avoir rafraicie mon bureau
23/06/2004, 18h18
Maddelphi

Bonour,
Alors, personne peut m'aider?
23/06/2004, 18h40
Pierre Castelain

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/ifaces/iactivedesktop/iactivedesktop.asp

Allez les jeunes, j'ai trouvé une astuce pour afficher les différentes
extensions d'images que je voulais pour ce qui sont intéressés:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
procedure TForm1.ChangeWallpaper( Image: string; DisplayStyle : string;
                                   sTile : string);
var
     reg : TRegistry;
     FileFormat : string[4];
     FichierBMP : string;
begin
  FileFormat := AnsiUpperCase (ExtractFileExt(Image));
  if ((FileFormat = '.JPG') Or (FileFormat = '.JPE')) then
   begin
     SetLength (FichierBMP,101);
     GetWindowsDirectory (PChar(FichierBMP), 100);
     FichierBMP := string (PChar(FichierBMP));
     FichierBMP := FichierBMP + '\MyWallpaper.bmp';
     ConvertJPG2BMP (Image, FichierBMP); //ici je change mon format
     reg := TRegistry.Create ;
     reg.RootKey := HKEY_CURRENT_USER;
     with reg do
     begin
       try
         if OpenKey ('\Control Panel\Desktop', false) then
          begin
            WriteString ('Wallpaper',FichierBMP);
            WriteString ('WallpaperStyle',DisplayStyle);
            WriteString ('TileWallpaper', sTile);
          end;
       finally
       reg.Free;
       end;
     end;
     SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pChar(FichierBMP), SPIF_UPDATEINIFILE or SPIF_SENDCHANGE);
   end
   else
     if FileFormat = '.BMP' then
      begin
        reg := TRegistry.Create ;
        reg.RootKey := HKEY_CURRENT_USER;
        with reg do
        begin
          try
            if OpenKey ('\Control Panel\Desktop', false) then
             begin
               WriteString ('Wallpaper',Image);
               WriteString ('WallpaperStyle',DisplayStyle);
               WriteString ('TileWallpaper', sTile);
             end;
          finally
          reg.Free;
        end;
      end;
      SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pChar(Image),SPIF_UPDATEINIFILE or SPIF_SENDCHANGE); 
   end;
end;

merci la FAQ