Discussion :

[Maddelphi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!!

[Merlin]

Plusieurs moyens sont possibles. Tu peux utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Maddelphi]

cela ne fonctionne pas pour les extensions autre que bmp

[Nono40]

Oui, car il faut activer ActiveDesktop pour que les autres formats d'images soient supportés.

[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

[Maddelphi]

Bonour,
Alors, personne peut m'aider?

[Pierre Castelain]

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

[Maddelphi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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