RE:URGENTEEEE: Claves de registro
Prueba con esto, no sé si lo conseguirás, pero...
Const HKEY_CLASSES_ROOT = 1
#Const Win32 = 1
#If Win16 Then
Declare Function RegOpenKey Lib "Shell" _
(ByVal HKeyIn As Long, ByVal LPCSTR As String, HKeyOut As Long) As Long
Declare Function RegCloseKey Lib "Shell" _
(ByVal HKeyIn As Long) As Long
Declare Function RegEnumKey Lib "Shell" _
(ByVal HKeyIn As Long, ByVal SubKeyIn As Long, _
ByVal KeyName As String, ByVal KeyNameLen As Long) As Long
Declare Function RegQueryValue Lib "Shell" _
(ByVal HKeyIn As Long, ByVal SubKey As String, _
ByVal KeyValue As String, KeyValueLen As Long) As Long
#ElseIf Win32 Then
Declare Function RegOpenKey Lib "Shell32" _
(ByVal HKeyIn As Long, ByVal LPCSTR As String, HKeyOut As Long) As Long
Declare Function RegCloseKey Lib "Shell32" _
(ByVal HKeyIn As Long) As Long
Declare Function RegEnumKey Lib "Shell32" _
(ByVal HKeyIn As Long, ByVal SubKeyIn As Long, _
ByVal KeyName As String, ByVal KeyNameLen As Long) As Long
Declare Function RegQueryValue Lib "Shell32" _
(ByVal HKeyIn As Long, ByVal SubKey As String, _
ByVal KeyValue As String, KeyValueLen As Long) As Long
#End If
Function GetRegisteredList() As Variant
Dim hkroot As Long, x As Long, lLen As Long
ReDim strInstalled(99) As String
Dim strKeyID As String * 80, strKeyDesc As String * 80, iKeyCount As Integer
x = RegOpenKey(HKEY_CLASSES_ROOT, "", hkroot)
lLen = 80
Do
strKeyID = S