Viele Programmierer wollen auch eigene Dateiextensionen erstellen und verwalten. Dazu muss der betreffende Dateityp registriert werden. Dieses Tutorial behandelt aber nicht nur eigene Extensionen, sondern zeigt auch, wie schon bestehende Dateien (beispielsweise Bitmaps *.bmp) an eigene Programme übergeben und ausgewertet werden.
 

Als Standardwert für diesen neuen Schlüssel nehmen Sie "xscfile". Es ist jeder beliebige Name möglich, jedoch sollte er aussagekräftig und selbsterklärend sein.

Hinweis:
Betrachten Sie einmal die bestehenden Schlüssel im Zweig HKEY_CLASSES_ROOT. Sie finden dort alle registrierten Dateitypen.


Als nächster Schritt muss die Bezeichnung für unsere Datei "xscfile" registriert werden.
Dazu wird einfach ein neuer Schlüssel angelegt. Der neue Schlüssel sieht dann so aus:

        HKEY_CLASSES_ROOT\xscfile

Unterschlüssel:

Nun sind noch einige wenige Schritte erforderlich. Es müssen noch drei Schlüssel erstellt werden.
Für den Schlüssel "xscfile" erstellen wir den Schlüssel "shell", für diesen den Schlüssel "open" und dann noch den Schlüssel "command". Erst für den Schlüssel "command" wird ein bestimmter Wert festgelegt.
Es ist der komplette Pfad zu Ihrer Anwendung (zB C:\Programme\MeinProgramm.exe).

Achten Sie darauf, diesen Wert in Anführungszeichen zu setzen. Der Eintrag für "Standard" sieht so aus: "C:\Programme\MeinProgramm.exe" %1

       

Vergessen Sie nicht die Zeichenfolge "%1" anzugeben.

 

Dim cmdline
    cmdline = Command()
    RichTextBox1.LoadFile cmdline

Sub Main()
Dim cmdLine As String
    cmdLine = Command()
    Select Case cmdLine
        Case "A"
        frmMain.Show
        Case "B"
        frmabout.Show
        Case Else
        frmMain.Show
        MsgBox "Fehler im System"
    End Select
End Sub

Private Sub Form_Load()
On Error Resume Next
Call Settings
Call RegistryCheck
 
Dim cmdLine
    cmdLine = Command()
    RichTextBox1.LoadFile cmdLine
    Me.Caption = "X-SCR - " & cmdLine
End Sub

Sub RegistryCheck()
  'Auslesen der Registrierung, ob Eintrag
  'HKEY_CLASSES_ROOT schon vorhanden (*.xsc)
  'Wenn nicht (gelöscht oder erster Start)
  'Schlüssel setzen, um Dateityp zu registrieren
On Error Resume Next
 
    Dim Datei As String
    Dim Datei2 As String
    Dim Pfad As String
    Pfad = App.Path & "\" & App.Title & ".exe"
    Pfad = Chr(34) & Pfad & Chr(34) & " %1"
    Datei = ".xsc"
    Datei2 = ".xscfile"
    If GetValue(HKEY_CLASSES_ROOT, "xscfile\shell\open\command", _
    "", Pfad) Then
 
        Exit Sub
 
    Else
 
        Dim a&, b&, c&, d&
        Dim XscWert As String
        XscWert = "xscfile"
 
        a = CreateKey(HKEY_CLASSES_ROOT, _
            ".xsc", "")
        b = SetValue(HKEY_CLASSES_ROOT, _
            ".xsc", "", XscWert)
        c = CreateKey(HKEY_CLASSES_ROOT, _
            "xscfile\shell\open\command", "")
        d = SetValue(HKEY_CLASSES_ROOT, _
            "xscfile\shell\open\command", "", Pfad)
 
    End If
 
End Sub