Soyez le premier à donner votre avis sur cette source.
Snippet vu 18 391 fois - Téléchargée 71 fois
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Private Const SPI_SETDESKWALLPAPER = 20 Dim RetVal As Long 'remplacer le fichier par celui de votre choix f$ = "c:\test.bmp" RetVal = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, f$, 0)
Voici un extrait de l'MSDN windows :
SPI_SETDESKWALLPAPER
Sets the desktop wallpaper. The value of the pvParam parameter determines the new wallpaper. To specify a wallpaper bitmap, set pvParam to point to a null-terminated string containing the name of a bitmap file. Setting pvParam to "" removes the wallpaper. Setting pvParam to SETWALLPAPER_DEFAULT or NULL reverts to the default wallpaper.
Voilà.
Il est vrai que windows permet d'afficher des images jpg comme image de bureau, mais pour moi, il la converti en bmp avant d'appeler l'API SystemParametersInfo avec le paramètre SPI_SETDESKWALLPAPER.
J'espère que cette réponse te convient ?
Bonne prog @+
ta la soluce ou pas??
sinon bvo
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.