TKSoft-Online

Funktionsweise:

Leider ist es nicht möglich den Registry-Editor zu öffnen und gleich einen ein kompletten Schlüssel mit zu geben
damit der Editor direkt dort hin springt.
Windows speichert aber den letzten aufgerufenen Schlüssel im Schlüssel:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey
Der folgende Code macht sich diesen Umstand zu nutze (s. mod_Regedit )
Unter Windws Vista tritt, eigenartigerweise, der Laufzeitfehler 5 beim Aufruf des
Registryeditors mittels Shell-Methode auf.
Deswegen ist zusätzlich die ShellExecute-Funktion mit enthalten.

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
       (ByVal Hwnd As Long, ByVal Ipoperation As String, _
        ByVal Ipfile As String, ByVal Ipparameters As String, _
        ByVal Ipdirectory As String, ByVal nshowcmd As Long) As Long

Public Sub Open_RegEdit(oFrm As Form, sRegkey As String)

    On Error GoTo Open_RegEdit_Error

    Dim sLastkey As String
    Dim DoOpenFile As Long

    sLastkey = fWertLesen(HKEY_CURRENT_USER, _
                          "Software\Microsoft\Windows\CurrentVersion\Applets\Regedit", _
                          "LastKey")
    If sLastkey <> sRegkey Then
        fStringSpeichern HKEY_CURRENT_USER, _
                         "Software\Microsoft\Windows\CurrentVersion\Applets\Regedit", _
                         "LastKey", sRegkey
    End If

    Shell ("regedit.exe")

    On Error GoTo 0
    Exit Sub

Open_RegEdit_Error:
    If Err.Number = 5 Then
        DoOpenFile = ShellExecute(oFrm.Hwnd, vbNullString, "regedt32.exe", _
                                  vbNullString, vbNullString, 1)
    ElseIf Err.Number = 53 Then
        Shell ("regedt32.exe")
    Else
        Dim strErrString As String
        strErrString = "Error Information..." & vbCrLf
        strErrString = strErrString & "Error#: " & Err.Number & vbCrLf
        strErrString = strErrString & "Description: " & Err.Description
        MsgBox strErrString, vbCritical + vbOKOnly, "Error in procedure Open_RegEdit of Modul Regedit"
    End If
End Sub