wallpaperRésolu

Question

Bonjour,

J'aimerais pouvoir changer mon fond d'écran directement avec delphi, et imposer le mode mosaïque sous windows XP SP2.
J'ai cherché en vain dans toutes les sources, mais sans succès.

Si quelqu'un pouvait m'aider...

Merci d'avance

cs_Kenavo · Accepted Answer

Ben .... c'est du Delphi ! Ne soit pas chagrin ! 

Le truc, c'est cette fonction est directement importée d'une DLL écrite en C, ce qui (comme à chaque fois) suppose quelques précautions dans le passage des paramètres. D'où le PChar qui permet de s'assurer que la chaine sera bien transmise sous forme de chaine à zéro terminal (pas comme une String que tout programeur Pascal à l'habitude de manipuler)

Tu devrais lire l'aide sur PChar dans Delphi.

Ken@vo




<hr size="2" width="100%" />



Code, Code, Codec !






[%3C/body 
]

cptpingu · Answer

Pour le fond d'ecran, tu peux modifier la base des registres (Regarde dans \HKEY_CURRENT_USER\Control Panel\Desktop, en particulier "WallPaper"). Pour le mode mosaique, il doit y avoir un cle dans la base, mais je ne sais plus ou. (Essaie "TileWallpaper").

GeorgyMeud2 · Answer

cette commande modifie le fd d'écran au redémarrage non ? je cherche a changer la fd d'écran instantanement.

Merci d'avance.

cs_Kenavo · Answer

Salut

Comme le dit très justement CptPigu, il faut modifier dans la base de registres les valeurs de 
WallpaperStyle et TileWallpaper dans la clé HKEY_CURRENT_USER\Control Panel\Desktop
Pour une 



mosaïque les deux sont à "1"

Après tu appelles la fonction ;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Pchar('MonFond.bmp'), SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE);

voir article sur msdn




Ken@vo




<hr size="2" width="100%" />



Code, Code, Codec !






[%3C/body 
]

Cirec · Answer

Salut,

il vous faut à tous une paire de lunette 

sur la page d'acceuil de DelphiFr il y a un Snippet 
http://www.codyx.org/snippet_modifier-fond-ecran-votre-bureau-windows_188.aspx

ensuite il suffit de chercher le code pour Delphi

C'est pas tout à fait le même que Kenavo mais il fonctionne aussi 
 
@+
Cirec

<hr size="2" />

cs_Kenavo · Answer

Des lunettes peut-être, Cirec, mais j'ai quand même vu qu'il était demandé de forcer le mode mosaïque ! 

Ken@vo




<hr size="2" width="100%" />



Code, Code, Codec !






[%3C/body 
]

Cirec · Answer

ça y est j'ai mis les miennes      
  
j'ai bloqué sur : "j'ai cherché  en vain dans toutes les sources, mais sans succès."

Alors qu'elle figure en première page 
 
@+
Cirec

<hr size="2" />

GeorgyMeud2 · Answer

Après tu appelles la fonction ;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Pchar('MonFond.bmp'), SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE);

concretement, comment je fais sous delphi ? le Pchar('monfond.bmp') me chagrine...

Désolé, c'est peut-etre une question de débutant...

merci d'avance.

GeorgyMeud2 · Answer

parfait. ca fonctionne. merci ;-)

Wallpaper

9 réponses

Votre réponse

Discussions similaires