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 RegSetValue Lib "advapi32.dll" Alias _
        "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As _
        String, ByVal dwType As Long, ByVal lpData As String, _
        ByVal cbData As Long) As Long
 
Const HKEY_CLASSES_ROOT = &H80000000
Const MAX_PATH = 260&
Const REG_SZ = 1
 
 
Public Sub Eintrag(ByVal AppName$, ByVal AppPath$, ByVal AppReg$, ByVal AppExt$)
  Dim Result&, hKey&
 
    '### Generiert den neuen Eintrag
    Result = RegCreateKey&(HKEY_CLASSES_ROOT, AppReg, hKey&)
    Result = RegSetValue&(hKey&, "", REG_SZ, AppName, 0&)
 
    '### Generiert die Assoziotion mit der Endung
    Result = RegCreateKey&(HKEY_CLASSES_ROOT, "." & AppExt, hKey&)
    Result = RegSetValue&(hKey&, "", REG_SZ, AppReg, 0&)
 
    '### Setzt den ausführenden Pfad für die Anwendung
    Result = RegCreateKey&(HKEY_CLASSES_ROOT, AppReg, hKey&)
    Result = RegSetValue&(hKey&, "shell\open\command", REG_SZ, _
             AppPath & " %1 /open/", MAX_PATH)
 
    Result = RegCreateKey(HKEY_CLASSES_ROOT, AppExt & "file\DefaultIcon", hKey&)
    Result = RegSetValue(hKey&, AppExt & "file\" & "DefaultIcon", REG_SZ, _
      App.Path & "\logo01.ico", 0&)
 
End Sub

Cycloheptatrieenylium-Kation