Option Explicit
 
' zunächst die benötigten API-Deklarationen
Private 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
 
Private Declare Function RegEnumKey Lib "advapi32.dll" _
  Alias "RegEnumKeyA" ( _
  ByVal hKey As Long, _
  ByVal dwIndex As Long, _
  ByVal lpName As String, _
  ByVal cbName As Long) As Long
 
Private Declare Function RegCloseKey Lib "advapi32.dll" ( _
  ByVal hKey As Long) As Long
 
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const KEY_ENUMERATE_SUB_KEYS = &H8

Private Sub cmdLoad_Click()
  Dim hKey As Long
  Dim RetVal As Long
  Dim Wert As String
  Dim sName As String
  Dim nIndex As Long
 
  'Open Key
  RetVal = RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
    "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\Event" & _
    "andlers", _
    0&, KEY_ENUMERATE_SUB_KEYS, hKey)
 
  Do
    sName = Space(255)
    RetVal = RegEnumKey(hKey, nIndex, sName, Len(sName))
    If RetVal <> 0 Then Exit Do
 
    lstTest.AddItem Left$(sName, InStr(sName, vbNullChar) - 1)
 
    nIndex = nIndex + 1
  Loop
  RegCloseKey hKey
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de