' benötigte API-Deklarationen
Private Declare Function RegCreateKey Lib "advapi32.dll" _
  Alias "RegCreateKeyA" (ByVal hKey As Long, _
  ByVal lpSubKey As String, phkResult As Long) As Long
 
Private 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
 
Private Declare Function RegCloseKey Lib "advapi32.dll" _
  (ByVal hKey As Long) As Long
 
Private Const REG_SZ = 1
Private Const HKEY_LOCAL_MACHINE = &H80000002

Dim hOpen As Long
Dim sPath As String
Dim sKey As String
Dim sData As String
 
' Pfad
sPath = "Software\test"
 
' Schlüssel
sKey = "Path"
 
' Wert
sData = App.Path
 
' Schlüssel erstellen
RegCreateKey HKEY_LOCAL_MACHINE, sPath, hOpen
 
' Wert speichern
RegSetValueEx hOpen, sKey, 0, REG_SZ, ByVal sData, Len(sData)
 
' Registry schließen
RegCloseKey hOpen

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de