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
 
 
 
Sub fStringSpeichern(hKey As Long, sPath As String, _
  sValue As String, iData As String)
 
  Dim vRet As Variant
 
  RegCreateKey hKey, sPath, vRet
  RegSetValueEx vRet, sValue, 0, REG_SZ, ByVal iData, _
    Len(iData)
  RegCloseKey vRet
End Sub
 
Private Sub Form_Load()
 
  fStringSpeichern "HKEY_CLASSES_ROOT", "shell", "MeineAnwendung", "D:\Prog.exe" & _
    "%1"
 
End Sub