Discussion :

[Bertr@nd]

Bonjour à tous !
Je me trouve confronté à un problème : je voudrais utiliser une API pour changer de fond d'écran...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Declare Auto Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" ( _
            ByVal uAction As Long, _
            ByVal uParam As Long, _
            ByVal lpvParam As Object, _
            ByVal fuWinIni As Long) _
            As Long
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = 1
 
    Private Sub btTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTest.Click
            SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,  "C:\Bertrand\Fonds d'écran\01018_neutronrevolver_1280x1024.jpg", SPIF_UPDATEINIFILE)
End Sub

La fonction me renvoie un nombre NON NUL... Il me semble que cela veut dire qu'il n'y a pas eu d'erreurs. Cela dit, le résultat attendu n'est pas le bon à savoir que mon écran est de couleur unie, comme si "Aucun" était sélectionné (dans les Propriétés -> Bureau). Hors, lorsque j'ouvre...

Cela m'est déjà arrivé avec d'autres API, à chaque, pas de résultats...

[Aspic]

Deja ton API est mal déclaré... Bizarre que tu n'ai pas eu d'erreur :

Code :

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

1
2
3
4
5
6
7
'correction
Declare Auto Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" ( _
            ByVal uAction As Integer, _
            ByVal uParam As Integer, _
            ByVal lpvParam As Object, _
            ByVal fuWinIni As Integer) _
            As Integer

En VB.NET, il faut remplacer les Long par des Integer.

[Danyel]

Et surtout :

Code :

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

ByVal lpvParam As Object

doit être :

Code :

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

ByVal lpvParam As String

[Aspic]

Et surtout :

Code :

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

ByVal lpvParam As Object

doit être :

Code :

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

ByVal lpvParam As String

Exact j'avais pas vu

[Bertr@nd]

merci de vos réponses... Mais ('y a tjrs un "mais" ), cela ne fonctionne toujours pas...
Le dernier paramètre doit mettre le registre à jour, ce qui n'est pas fait ! mais grande nouveauté : la fonction retourne 0...

[Aspic]

Le dernier paramètre doit mettre le registre à jour, ce qui n'est pas fait ! mais grande nouveauté : la fonction retourne 0...

Faut regarder la doc de l'API pour interpréter le résultat