Discussion :

[Seth77]

Slu

j ai fais un petit prog qui me permet de changer mon fond d ecran...j utilise la fonction :
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal WALLPAPER_BMP, 1)

le fond d ecran change correctement .. et meme dans "Propriete d affiche" -> "Bureau"
mais sur un autre pc le fond d ecran change mais pas dans "Propriete d affiche" -> "Bureau" ?

qqn a une explication ?

[ouskel'n'or]

Hello,
Tes deux micros ont-ils le même system ? Les deux utilisent-ils la même version de Rundll32.exe ?

A+

[Seth77]

euh ... un a XP Home (sur un portable) et l autre XP Pro

pour la version de rundll je ne sais ...comment je fais pour le savoir ?

[ridan]

Tu as un exemple d'utilisation de l'API SystemParametersInfo pour changer ton fond d'écran ici : http://www.mentalis.org/apilist/Syst...ersInfo.shtml#

[Seth77]

ben c come ca que je fais

[ridan]

Chez moi ça fonctionne correctement (WinXP Pro SP1)

Est-il possible de voir ton code complet ??

[Seth77]

Chez moi ça fonctionne correctement (WinXP Pro SP1)

Est-il possible de voir ton code complet ??

voila la fonction en question
mais c etrange car sur mon autre PC cela marche bien !

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
Function ChangerFondEcran(Fichier As String)
    CURRENT_JPG_WALLPAPER = Fichier
    EcrireINI INI_FILE, "WALLPAPER", "Current", CURRENT_JPG_WALLPAPER
 
    ConvertPictureFileToBitmap Fichier, WALLPAPER_BMP
 
    Retval = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal WALLPAPER_BMP, SPIF_UPDATEINIFILE)
    If (Retval = 0) Then MsgBox "Erreur dans l'affichage du fond d'écran !", vbCritical, App.Title
 
    EcrireINI INI_FILE, "WALLPAPER", "STYLE", CStr(WALLPAPER_STYLE)
    LAST_CHANGE_DATE = Get_Date(Date)
    LAST_CHANGE_TIME = Get_Heure(time$)
    EcrireINI INI_FILE, "WALLPAPER", "LastChange", CStr(LAST_CHANGE_DATE & " " & LAST_CHANGE_TIME)
 
    Maj_NextWallpaper
End Function

[ridan]

J'ai tapé ce code rapidement. Ajoute un composant CommonDialog et une pictureBox et :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
 
Private Sub Command1_Click()
    Dim fichier As String
    fichier = "C:\temp.bmp"
    CommonDialog1.Filter = "BMP ou JPG (*.bmp,*.jpg)|*.bmp;*.jpg"
    CommonDialog1.ShowOpen
    Set Picture1 = LoadPicture(CommonDialog1.FileName)
    SavePicture Picture1.Picture, fichier
    SystemParametersInfo SPI_SETDESKWALLPAPER, 0, fichier, SPIF_UPDATEINIFILE
    Kill fichier
End Sub

++

[Seth77]

thx

ca marche non ?

tu as essaye mon programme complet ?