- Utilisation de l'API :
-
- 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
- Const SPI_SETDESKWALLPAPER = 20
- Const SPIF_UPDATEINIFILE = &H1
-
- SystemParametersInfo SPI_SETDESKWALLPAPER, 0, NomFichier, SPIF_UPDATEINIFILE
-
- Voilà c'est tout !
- Le reste est dans le ZIP !
Utilisation de l'API :
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
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, NomFichier, SPIF_UPDATEINIFILE
Voilà c'est tout !
Le reste est dans le ZIP !