Changer le fond d'écran

Commenter

Contenu du snippet

Votre rêve va se réaliser grace à ce code.
Ecrivez-moi : Zarbiboy@hotmail.com

Source / Exemple : 


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)

Conclusion :


Vous pourrez faire cela sur les ordis de vos potes.

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_Zarbiboss)