Hallo Ich habe folgendes Problem ich möchte ind as KontextMenü von dem WindowsExplorer einen neuen Eintrag einfügen das geht ja wie bekannt über die Registry ich möchte in meinem Fall einen neuen Eintrag wenn ich auf Dateien mit der Endung ".png" Ich habe folgende Funktion :
Und rufe die Funktion wie folgt auf :
Aber es erscheint kein neuer Eintrag in dem Kontextmenü, aber in der Registry sind einträge vorhanden weiß einer woran es liegen könnte ?
LG Graphic
VB.NET-Quellcode
- Public Function AddToExplorerContextMenu(ByVal extension As String, _
- ByVal text As String, ByVal command As String) As Boolean
- ' Beispiel der Kommentare:
- ' extension=.js
- ' text=In JSEdit öffnen
- ' command= C:\jsedit.exe "%1"
- Try
- ' Öffnen: HKEY_CLASSES_ROOT\.js
- Dim Extensionkey As RegistryKey = Registry.ClassesRoot.CreateSubKey(extension)
- ' Öffnen: HKEY_CLASSES_ROOT\.js\Shell
- Dim Shellkey As RegistryKey = Extensionkey.CreateSubKey("Shell")
- ' Öffnen: HKEY_CLASSES_ROOT\.js\Shell\In JSEdit bearbeiten
- Dim Entrykey As RegistryKey = Shellkey.CreateSubKey(text)
- ' Öffnen: HKEY_CLASSES_ROOT\.js\Shell\In JSEdit bearbeiten\command
- Dim Commandkey As RegistryKey = Entrykey.CreateSubKey("command")
- Commandkey.SetValue("", command)
- Commandkey.Close()
- Entrykey.Close()
- Shellkey.Close()
- Extensionkey.Close()
- Return True
- Catch ex As Exception
- Return False
- End Try
- End Function
Und rufe die Funktion wie folgt auf :
Aber es erscheint kein neuer Eintrag in dem Kontextmenü, aber in der Registry sind einträge vorhanden weiß einer woran es liegen könnte ?
LG Graphic