'Registry-Schüssel
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006
'Rückgabewerte
Public Const REG_SZ = 1
Public Const REG_BINARY = 3
Public Const REG_DWORD = 4
Public Const ERROR_SUCCESS = 0&
'API-Deklarationen
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" ( _
  ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As _
Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ( _
ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" ( _
ByVal hKey As Long, ByVal lpSubKey As String) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias _
"RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Public 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
Public Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" ( _
ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, _
lpcbValueName As Long, lpReserved As Long, lpType As Long, lpData As Byte, _
lpcbData As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal _
lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
(ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal _
dwType As Long, lpData As Any, ByVal cbData As Long) As Long
'Neuen Registry-Schlüssel anlegen
'Beispiel:   CreateKey HKEY_LOCAL_MACHINE, "Software\SHADOWare"
Public Sub CreateKey(hKey As Long, strPath As String)
   Dim hCurKey As Long
   Dim lRegResult As Long   
   lRegResult = RegCreateKey(hKey, strPath, hCurKey)
   If lRegResult <> ERROR_SUCCESS Then
      'Irgendetwas ist schiefgegangen
   End If
   lRegResult = RegCloseKey(hCurKey)
End Sub
'Bestehenden Registry-Schlüssel entfernen
'Beispiel:   DeleteKey HKEY_LOCAL_MACHINE, "Software\SHADOWare"
Public Sub DeleteKey(ByVal hKey As Long, ByVal strPath As String)
   Dim lRegResult As Long
   lRegResult = RegDeleteKey(hKey, strPath)
End Sub
'Bestehenden Registry-Eintrag entfernen
'Beispiel:   DeleteValue HKEY_LOCAL_MACHINE, "Software\SHADOWare", "Eintrag"
Public Sub DeleteValue(ByVal hKey As Long, ByVal strPath As String, ByVal _
  strValue As String)
   Dim hCurKey As Long
   Dim lRegResult As Long   
   lRegResult = RegOpenKey(hKey, strPath, hCurKey)
   lRegResult = RegDeleteValue(hCurKey, strValue)
   lRegResult = RegCloseKey(hCurKey)
End Sub

Probleme oder Fragen mit und ?ber den/m PC? Klappt was nicht?

......:::::X------www.insiders-xp.de------X:::::........