Eintrag ins Windows-Explorer Contextmenü

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Gather.

    Eintrag ins Windows-Explorer Contextmenü

    Hallo liebe Community.
    Ich weiß dieses Thema wurde schon mehrmals behandelt. Dennoch stoße ich bei der ausführung auf Probleme.

    Mein Code:

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    2. Public Class Form1
    4. Public Class ExplorerContextMenu
    6. ''' <summary>
    7. ''' Fügt dem Kontextmenü des Windows Explorers einen Eintrag für einen Dateityp hinzu.
    8. ''' Bei Erfolg wird True zurückgegeben, sonst False.
    9. ''' </summary>
    10. ''' <param name="extension">Der Dateityp. Beispiel: .txt</param>
    11. ''' <param name="text">Der Text des Eintrags. Beispiel: In JSEdit öffnen</param>
    12. ''' <param name="command">Der aufzurufende Befehl. Beispiel: C:\jsedit.exe "%1"</param>
    13. Public Shared Function AddToExplorerContextMenu(ByVal extension As String, _
    14. ByVal text As String, ByVal command As String) As Boolean
    15. ' Beispiel der Kommentare:
    16. ' extension=.js
    17. ' text=In JSEdit öffnen
    18. ' command= C:\jsedit.exe "%1"
    19. Try
    20. ' Öffnen: HKEY_CLASSES_ROOT\.js
    21. Dim Extensionkey As RegistryKey = Registry.ClassesRoot.CreateSubKey(extension)
    22. ' Öffnen: HKEY_CLASSES_ROOT\.js\Shell
    23. Dim Shellkey As RegistryKey = Extensionkey.CreateSubKey("Shell")
    24. ' Öffnen: HKEY_CLASSES_ROOT\.js\Shell\In JSEdit bearbeiten
    25. Dim Entrykey As RegistryKey = Shellkey.CreateSubKey(text)
    26. ' Öffnen: HKEY_CLASSES_ROOT\.js\Shell\In JSEdit bearbeiten\command
    27. Dim Commandkey As RegistryKey = Entrykey.CreateSubKey("command")
    28. Commandkey.SetValue("", command)
    29. Commandkey.Close()
    30. Entrykey.Close()
    31. Shellkey.Close()
    32. Extensionkey.Close()
    33. Return True
    34. Catch ex As Exception
    35. Return False
    36. End Try
    37. End Function
    39. ''' <summary>
    40. ''' Entfernt einen Eintrag eines Dateityüs aus dem Kontextmenü des Windows Explorers.
    41. ''' </summary>
    42. ''' <param name="extension">Siehe AddToExplorerContextMenu()</param>
    43. ''' <param name="text">Siehe AddToExplorerContextMenu()</param>
    44. Public Shared Function RemoveFromExplorerContextMenu(ByVal extension As String, _
    45. ByVal text As String) As Boolean
    46. Try
    47. ' Öffnen: HKEY_CLASSES_ROOT\.js
    48. Dim Extensionkey As RegistryKey = Registry.ClassesRoot.OpenSubKey(extension, True)
    49. ' Öffnen: HKEY_CLASSES_ROOT\.js\Shell
    50. Dim Shellkey As RegistryKey = Extensionkey.OpenSubKey("Shell", True)
    51. ' Entfernen: HKEY_CLASSES_ROOT\.js\Shell\In JSEdit bearbeiten
    52. Shellkey.DeleteSubKeyTree(text)
    53. Shellkey.Close()
    54. Extensionkey.Close()
    55. Return True
    56. Catch ex As Exception
    57. Return False
    58. End Try
    59. End Function
    61. End Class
    62. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    63. ExplorerContextMenu.AddToExplorerContextMenu(".js", _
    64. "In JSEdit bearbeiten", "C:\jsedit.exe ""%1""")
    65. End Sub
    67. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    68. ExplorerContextMenu.RemoveFromExplorerContextMenu(".js", _
    69. "In JSEdit bearbeiten")
    70. End Sub
    71. End Class


    Quelle: (vbarchiv.net/tipps/tipp_1885-e…indows-explorers-net.html)

    Es treten keine Fehler auf, dennoch, wenn ich das Programm debugge und die Funktion aufrufe passiert nichts.

    Was soll ich tun?

    Ich weiß das man einträge in die REgistry schreibt dennoch scheint mir diese lösung (wenn sie funktionieren würde) auf sinnvollsten.
    Da sie nur bei manchen endungen "aktiviert" wird.
    Und man sie wieder Removen kann. (Geht auch bei anderen)


    Bitte um Hilfe UND Erläuterung!
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Als ob ich das nicht probiert hätte. Ich bin kein Anfänger mehr.

    Selbst wenn ich Trys entferne und es teste tritt nur eine Meldung auf das der zugriff verweigert worden ist.
    Dann starte ich das Programm als Admin, sie kommt nicht und nichts passiert.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    der code wird dann funz wenn du Datei mit eine Dateiendung (z.b txt) mit rechte maustaste anklikst, dann erscheint in KontexMenü deine Anwendung, am sonsten wird der Code nicht funz,
    NO WAY!!!

    oh mein gott, Das ist mir schon die ganze zeit klar. Doch es wird kein Eintrag hinzugefügt!
    Und dein Link, das Programm hab ich auchschon getestet....geht ebensfalls nicht. Ich glaub ja das is für XP
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Er erstellt die Ordner und alles aber irgendwie passiert nichts.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

Facebook