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 :
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 pourquoiDeclare 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