Problème avec les API

Version imprimable

Voir 40 message(s) de cette discussion en une page

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

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...

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

Code:

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. ;)

12/07/2007, 18h42
Danyel

Et surtout :

Code:

ByVal lpvParam As Object

doit être :

Code:

ByVal lpvParam As String
12/07/2007, 18h45
Aspic

Citation:

Envoyé par Danyel

Et surtout :

Code:

ByVal lpvParam As Object

doit être :

Code:

ByVal lpvParam As String

Exact j'avais pas vu :mouarf:
12/07/2007, 18h55
Bertr@nd

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

Citation:

Envoyé par Bertr@nd

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

Faut regarder la doc de l'API pour interpréter le résultat ;)
12/07/2007, 19h46
Bertr@nd

non définitevement non...:pleure: D'après ce que j'ai lu, après de multiples recherches:roll: , le 0 c'est L'ECHEC... Maman...:cry:
12/07/2007, 20h43
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 ?

Essaye comme ca :

Code:

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

12/07/2007, 23h55
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...:cry: Enfin, qu'elle retourne un booléen ou un entier ne change rien...:roll:
Merci qd même
13/07/2007, 00h01
Aspic

Citation:

Envoyé par 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...:cry: Enfin, qu'elle retourne un booléen ou un entier ne change rien...:roll:
Merci qd même

Je serais tenter de dire que c'est l'API qui foire mais ca m"etonnerais comme meme...
13/07/2007, 00h35
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.
13/07/2007, 02h54
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.
13/07/2007, 12h58
Bertr@nd

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

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

Merci pour tout !
13/07/2007, 14h46
Kelpan

Citation:

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

Cela fonctionne avec les images de type JPEG que sous Windows VISTA...
14/07/2007, 10h27
Bertr@nd

encore merci à tous pour votre aide...;)

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

Code:

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:

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

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

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 ;)

14/07/2007, 13h54
Aspic
Citation:
Envoyé par Bertr@nd

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

Code:

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 :king:
14/07/2007, 14h36
Bertr@nd

exactement :mrgreen:

Voir 40 message(s) de cette discussion en une page