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 :
Mein Code zum entfernen der Registry der nicht funktioniert
Mein Code zum aufrufen der eintragen Methode
Mein Code zum Aufrufen der Entfernen Methode der nicht funktioniert :
Leider weiß ich momentan nicht was , über hilfe würde ich mich sehr freuen
Lg Graphic
---
Die funktionen stehen in "Module1".
Mein Code zum eintragen in die Registry :
VB.NET-Quellcode
- Public Function AddToExplorerContextMenu(ByVal extension As String, _
- ByVal text As String, ByVal command As String) As Boolean
- Try
- Dim Extensionkey As RegistryKey = Registry.ClassesRoot.CreateSubKey(extension)
- Dim Shellkey As RegistryKey = Extensionkey.CreateSubKey("Shell")
- Dim Entrykey As RegistryKey = Shellkey.CreateSubKey(text)
- 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
Mein Code zum entfernen der Registry der nicht funktioniert
VB.NET-Quellcode
- Public Function RemoveFromExplorerContextMenu(ByVal extension As String, _
- ByVal text As String) As Boolean
- Try
- Dim Extensionkey As RegistryKey = Registry.ClassesRoot.OpenSubKey(extension, True)
- Dim Shellkey As RegistryKey = Extensionkey.OpenSubKey("Shell", True)
- Shellkey.DeleteSubKeyTree(text)
- Shellkey.Close()
- Extensionkey.Close()
- Return True
- Catch ex As Exception
- Return False
- End Try
- End Function
Mein Code zum aufrufen der eintragen Methode
VB.NET-Quellcode
- Sub AddContextMenu()
- Module1.AddToExplorerContextMenu(".jpg", _
- "EpvpImg - Upload", "C:\EpvpImg_Uploader\EpvpImg.exe ""%1""")
- Module1.AddToExplorerContextMenu(".jpeg", _
- "EpvpImg - Upload", "C:\EpvpImg_Uploader\EpvpImg.exe ""%1""")
- Module1.AddToExplorerContextMenu(".png", _
- "EpvpImg - Upload", "C:\EpvpImg_Uploader\EpvpImg.exe ""%1""")
- Module1.AddToExplorerContextMenu(".bmp", _
- "EpvpImg - Upload", "C:\EpvpImg_Uploader\EpvpImg.exe ""%1""")
- End Sub
Mein Code zum Aufrufen der Entfernen Methode der nicht funktioniert :
VB.NET-Quellcode
- Sub RemoveContextMenu()
- Module1.RemoveFromExplorerContextMenu(".jpg", _
- "EpvpImg - Upload")
- Module1.RemoveFromExplorerContextMenu(".jpeg", _
- "EpvpImg - Upload")
- Module1.RemoveFromExplorerContextMenu(".png", _
- "EpvpImg - Upload")
- Module1.RemoveFromExplorerContextMenu(".bmp", _
- "EpvpImg - Upload")
- End Sub
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Graphicscore“ ()