la fonction RegEnumKeyEx me retourne toujours l'erreur 87(param=E8tres
incorrect), je n'ai pas du tout saisir :p
Public Const HKEY_CLASSES_ROOT =3D &H80000000
Public Const REG_SZ =3D 1
Public Const REG_DWORD =3D 4
Public Const READ_CONTROL =3D &H20000
Public Const KEY_READ =3D &H20019
Public 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
Public Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As
Long) As Long
Public Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias
"RegEnumKeyExA" (ByVal hKey As Long, _
ByVal dwIndex As
Long, ByVal lpName As String, _
lpcbName As Long,
lpReserved As Long, _
ByVal lpClass As
String, lpcbClass As Long, _
lpftLastWriteTime
As Any) As Long
Public Sub Lister()
Dim hand As Long
Dim nom As String
Dim time As Variant
Dim tailleNom As Long
Dim unusedA As Long
Dim unusedB As Long
Dim ind As Long
MsgBox RegOpenKeyEx(HKEY_CLASSES_ROOT, "CLSID", 0, READ_CONTROL,
hand)
MsgBox RegEnumKeyEx(hand, 0, nom, tailleNom, unusedA,
vbNullString, unusedB, time)
MsgBox nom & " =3D> " & tailleNom
MsgBox RegCloseKey(hand)
End Sub