Entfernen des Registry Keys funktioniert nicht

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von timmi31061.

    Entfernen des Registry Keys funktioniert nicht

    Hallo Com. Ich habe hier ein kleines Programm das einen Context Menü eintrag in den Explorer macht heißt wenn ich rechtsklick auf die extension wie .png .jpg machen soll da ein Eintrag names "Epvp Upload " stehen nun möchte ich aber diesen Schlüssel in der Registry wieder entfernen (Beim schließen meines Programmmes) irgendwas scheint da aber schiefzulaufen ...
    Leider weiß ich momentan nicht was , über hilfe würde ich mich sehr freuen
    //EDIT : Diese Verknüpfung ist nun auch noch unbeabsichtigt bei jeder Dateiendung :?: Wer mir das erklären kann wäre ich sehr verbunden. Problem gelöst
    Lg Graphic

    ---

    Die funktionen stehen in "Module1".
    Mein Code zum eintragen in die Registry :


    VB.NET-Quellcode

    1. Public Function AddToExplorerContextMenu(ByVal extension As String, _
    2. ByVal text As String, ByVal command As String) As Boolean
    3. Try
    4. Dim Extensionkey As RegistryKey = Registry.ClassesRoot.CreateSubKey(extension)
    5. Dim Shellkey As RegistryKey = Extensionkey.CreateSubKey("Shell")
    6. Dim Entrykey As RegistryKey = Shellkey.CreateSubKey(text)
    7. Dim Commandkey As RegistryKey = Entrykey.CreateSubKey("command")
    8. Commandkey.SetValue("", command)
    9. Commandkey.Close()
    10. Entrykey.Close()
    11. Shellkey.Close()
    12. Extensionkey.Close()
    13. Return True
    14. Catch ex As Exception
    15. Return False
    16. End Try
    17. End Function




    Mein Code zum entfernen der Registry der nicht funktioniert


    VB.NET-Quellcode

    1. Public Function RemoveFromExplorerContextMenu(ByVal extension As String, _
    2. ByVal text As String) As Boolean
    3. Try
    4. Dim Extensionkey As RegistryKey = Registry.ClassesRoot.OpenSubKey(extension, True)
    5. Dim Shellkey As RegistryKey = Extensionkey.OpenSubKey("Shell", True)
    6. Shellkey.DeleteSubKeyTree(text)
    7. Shellkey.Close()
    8. Extensionkey.Close()
    9. Return True
    10. Catch ex As Exception
    11. Return False
    12. End Try
    13. End Function




    Mein Code zum aufrufen der eintragen Methode


    VB.NET-Quellcode

    1. Sub AddContextMenu()
    2. Module1.AddToExplorerContextMenu(".jpg", _
    3. "EpvpImg - Upload", "C:\EpvpImg_Uploader\EpvpImg.exe ""%1""")
    4. Module1.AddToExplorerContextMenu(".jpeg", _
    5. "EpvpImg - Upload", "C:\EpvpImg_Uploader\EpvpImg.exe ""%1""")
    6. Module1.AddToExplorerContextMenu(".png", _
    7. "EpvpImg - Upload", "C:\EpvpImg_Uploader\EpvpImg.exe ""%1""")
    8. Module1.AddToExplorerContextMenu(".bmp", _
    9. "EpvpImg - Upload", "C:\EpvpImg_Uploader\EpvpImg.exe ""%1""")
    10. End Sub



    Mein Code zum Aufrufen der Entfernen Methode der nicht funktioniert :

    VB.NET-Quellcode

    1. Sub RemoveContextMenu()
    2. Module1.RemoveFromExplorerContextMenu(".jpg", _
    3. "EpvpImg - Upload")
    4. Module1.RemoveFromExplorerContextMenu(".jpeg", _
    5. "EpvpImg - Upload")
    6. Module1.RemoveFromExplorerContextMenu(".png", _
    7. "EpvpImg - Upload")
    8. Module1.RemoveFromExplorerContextMenu(".bmp", _
    9. "EpvpImg - Upload")
    10. End Sub

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Graphicscore“ ()

Facebook
Telefonspende