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

[Bertr@nd]

non définitevement non... D'après ce que j'ai lu, après de multiples recherches , le 0 c'est L'ECHEC... Maman...

[Aspic]

Va voir la et change ta fonction en BOOLEAN :
http://www.secretswindows.com/index....ilfonction.php

PS: Pourquoi as tu mis ton sujet en délestage ?

[Danyel]

Essaye comme ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Class Windows_Wallpaper
 
Private Declare Auto Function SystemParametersInfo Lib "user32.dll" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
    Const SPI_SETDESKWALLPAPER = 20
    Const SPIF_UPDATEINIFILE = &H1
    Const SPIF_SENDWININICHANGE = &H2
    Private File_Path As String
 
    Sub Go()
        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, File_Path, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
    End Sub
 
End Class

[Bertr@nd]

le délestage... c'est une erreur...
Les 2 liens que vous m'avez passés, je les ai déjà consultés... Sur l'un, ce n'est pas "kernel32.dll" mais bien "user32.dll", et sur l'autre, j'ai testé... sans résultat... Enfin, qu'elle retourne un booléen ou un entier ne change rien...
Merci qd même

[Aspic]

le délestage... c'est une erreur...
Les 2 liens que vous m'avez passés, je les ai déjà consultés... Sur l'un, ce n'est pas "kernel32.dll" mais bien "user32.dll", et sur l'autre, j'ai testé... sans résultat... Enfin, qu'elle retourne un booléen ou un entier ne change rien...
Merci qd même

Je serais tenter de dire que c'est l'API qui foire mais ca m"etonnerais comme meme...

[olsimare]

Bonjour.

Au cas où, le site www.pinvoke.net m'a déjà aidé plus d'un fois...

J'ai pas essayé mais il y a un exemple ici qui me semble répondre à ta question :
http://www.pinvoke.net/default.aspx/...etersInfo.html

Cdt.

[Danyel]

Le code que je t'ai donne a deja servi et il fonctionnait sans probleme (pas essaye avec vb2005)

Perso, et comme l'action fait appel à la bdr, n'as tu pas un programme de controle ou d'acces à la bdr qui empecherait la modification.
Suis presque sur que ca vient de la.

[Bertr@nd]

aucun... En revanche, Pinvoke es franchement pas mal... Il fait dorénavant partie de mes favoris .

Il se trouve que ça marche... Devinez pquoi? Parce qu'il n'accepte que les fichiers bmp...

Merci pour tout !

[Kelpan]

Starting with Windows Vista, pvParam can specify a .jpg file.

Cela fonctionne avec les images de type JPEG que sous Windows VISTA...

[Bertr@nd]

encore merci à tous pour votre aide...

[Aspic]

Bon j'ai testé chez moi et je n'ai pas de soucis !

Code :

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

1
2
3
4
5
6
 Private Declare Function SystemParametersInfo Lib "user32" _
 Alias "SystemParametersInfoA" _
 (ByVal uAction As Integer, _
 ByVal uParam As Integer, _
 ByVal lpvParam As String, _
 ByVal fuWinIni As Integer) As Integer

Dans la form :

Code :

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

1
2
 Dim fond As String = "C:\Documents and Settings\Aspic\Bureau\Site 4 copy.jpg"
        SystemParametersInfo(20, 0, fond, 1)

[Bertr@nd]

tout fonctionne ! J'ai trouvé le moyen de convertir une image au format voulu...

Code :

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

1
2
3
4
5
 
Dim bmp As New Bitmap(NomFichier)
Dim newFilename as String = NomFichierAvecExtensionBMP
bmp.save(newFilename, Drawing.Imaging.ImageFormat.Bmp)
SystemParametersInfo(20, 0, newFilename, 1)

Cela peut tjrs servir... sans prétention bien sûr

[Aspic]

tout fonctionne ! J'ai trouvé le moyen de convertir une image au format voulu...

Code :

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

1
2
3
4
5
 
Dim bmp As New Bitmap(NomFichier)
Dim newFilename as String = NomFichierAvecExtensionBMP
bmp.save(newFilename, Drawing.Imaging.ImageFormat.Bmp)
SystemParametersInfo(20, 0, newFilename, 1)

Cela peut tjrs servir... sans prétention bien sûr

Bah tu vois un jour ou l'autre on y arrive

[Bertr@nd]

exactement