[Résolu] Lecture dans la base de registre

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
ArnaudEIC
NOOuvel adepte
NOOuvel adepte
Messages : 18
Inscription : 05 déc. 2005 09:34
Localisation : Vendöme

[Résolu] Lecture dans la base de registre

Message par ArnaudEIC »

Bonjour,
j'essaye de lire une valeur dans la base de registre mais je galère un peu.... n'ayant rien vu de concré en basic, je tente d'utiliser les fonctions SDK :
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Const HKEY_CURRENT_USER = &H80000001
Private Const KEY_ALL_ACCESS = &HF003F
Private Const REG_SZ = 1&


Private Function ReadRegistry(Section As String) As String
Dim hResult As Long, Resultat As Long, LenChaine As Long
Dim Chaine As String

'Ouverture de la Clef HKEY_CURRENT_USER\Software\test
di& = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\test", 0, KEY_ALL_ACCESS, hResult)
If di& = 0 Then
Chaine = Space(255): LenChaine = Len(Chaine)
'Lecture de la valeur de 'Section':
di& = RegQueryValueEx(hResult, Section, 0, REG_SZ, Chaine, LenChaine)
If di& = 0 Then
ReadRegistry = Left(Chaine, LenChaine - 1)
End If
di& = RegCloseKey(hResult)
End If
msgbox ReadRegistry
End Function
et donc il me pète une erreur sur le RegQueryValueEx : "les parramètres ne correspondent pas à la procédure" et je ne vois pas trop pourquoi :(
Dernière modification par ArnaudEIC le 05 janv. 2006 08:52, modifié 1 fois.
OOo 2.0 sous WinXP SP2
bm92
ManitOOu
ManitOOu
Messages : 2562
Inscription : 26 nov. 2005 14:42
Contact :

Message par bm92 »

ArnaudEIC
NOOuvel adepte
NOOuvel adepte
Messages : 18
Inscription : 05 déc. 2005 09:34
Localisation : Vendöme

Message par ArnaudEIC »

Je vais jeter un coup d'oeil a tout ça, je te remerci ;)
OOo 2.0 sous WinXP SP2
ArnaudEIC
NOOuvel adepte
NOOuvel adepte
Messages : 18
Inscription : 05 déc. 2005 09:34
Localisation : Vendöme

Message par ArnaudEIC »

et bien ça marche plutôt pas mal tout ça :)
problème résolu.
encore merci.
OOo 2.0 sous WinXP SP2
Répondre