Explorer, Rechtsklick, Eigenes Programm, Dateipfad übergeben

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Volker Bunge.

    Explorer, Rechtsklick, Eigenes Programm, Dateipfad übergeben

    Hallo zusammen,

    möchte ein Programm schreiben, welches ich über das Explorer-Kontextmenü aufrufen kann.

    Den Eintrag in der Registry habe ich soweit hinbekommen, dass ich meinen Programmpfad dort eingetragen habe und das Programm wird auch gestartet.

    Nur wie bekomme ich jetzt den kpl. Dateipfad der Datei heraus, auf dem ich den Rechtsklick gemacht habe?

    Vielen Dank
    Volker

    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Hallo mrMo,

    vielen Dank erst einmal für die noch so späte geschriebene Antwort.

    Habe mal den Sub Code so 1:1 direkt unter Public Class Form1 eingefügt und die letzte Console.WriteLine - Anweisung durch Msgbox ersetzt (damit ich was sehe).
    Danach habe ich per Rechtsklick im Explorer mein Programm geöffnet. Aber die Main Sub wurde dabei nicht aufgerufen.

    Dann habe ich die Main per Form_Load aufgerufen. Leider auch kein Erfolg.

    Habe jetzt mal eine neue Klasse Class1 erstellt und folgendes dort eingefügt

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Class Class1
    3. Public Shared Sub Main()
    4. Console.WriteLine()
    5. ' Invoke this sample with an arbitrary set of command line arguments.
    6. Dim arguments As String() = Environment.GetCommandLineArgs()
    7. Try
    8. Console.WriteLine("GetCommandLineArgs: {0}", String.Join(", ", arguments))
    10. MsgBox(arguments(0).ToString)
    11. MsgBox(arguments(1).ToString)
    12. MsgBox(arguments(2).ToString)
    14. Catch ex As Exception
    16. End Try
    17. End Sub
    18. End Class


    Der Aufruf erfolgt dann über das Form_Load Ereignis. Die Main-Sub wird jetzt auch angesprungen und die MsgBox liefert mit in der ersten Zeile den kpl. Pfad meiner Anwendung zurück.

    Könntest Du mir evtl. da noch mal genauer helfen? Wo muss was hin und wie muss ich ggf. das in mein Prg. einbinden?

    Vielen Dank

    Volker

    P.S. Class Sample ist doch wie Public Class Form1 zu sehen. Oder ist das eine Klasse die Sample heißt? Hoffe das ich die Lösung wie oben beschrieben schon selbst gefunden habe.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Volker Bunge“ ()

    Bau das mal in die Form Load Methode ein und schau ob im String Array dann die gesuchten Werte enthalten sind.

    Dim arguments As String() = Environment.GetCommandLineArgs()
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Zeig mal deinen Code und einen Screenshot vom Inhalt des Arrays.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Hier mal der Code im Form1 (unbearbeitet)

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Imports Microsoft.Win32
    3. Public Class Form1
    4. 'Public Shared Sub Main()
    5. ' Console.WriteLine()
    6. ' ' Invoke this sample with an arbitrary set of command line arguments.
    7. ' Dim arguments As String() = Environment.GetCommandLineArgs()
    8. ' MsgBox("GetCommandLineArgs: {0}", String.Join(", ", arguments))
    9. 'End Sub
    10. ' Herkunft: VB 5/6 Code https://www.vbarchiv.net/tipps/details.php?id=116
    11. ' zunächst die benötigten API-Deklarationen
    12. 'Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
    13. 'Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
    15. ' strMenuText: Text, welcher im Kontextmenü erscheinen soll
    16. ' strAnwendung: Pfad + EXE-Dateiname der Anwendung
    18. ' Weitere Links
    19. ' https://docs.microsoft.com/de-de/previous-versions/technical-content/bb979360(v=msdn.10)?redirectedfrom=MSDN
    20. ' https://mycsharp.de/forum/threads/92375/eigene-anwendung-aus-windows-kontextmenue-aufrufen?page=1#forumpost-3664312
    22. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    23. ' Für den ersten Eintrag (Standard) mit ValueName = "" sein. Sonst legt er einen neuen an
    24. ' Call Registry_erstellen("*\shell\Datei mit Outlook verschicken", "", Application.ExecutablePath)
    25. 'Call Class1.Main()
    27. 'Console.WriteLine()
    28. ' Invoke this sample with an arbitrary set of command line arguments.
    29. Dim arguments As String() = Environment.GetCommandLineArgs()
    30. Try
    31. ' Console.WriteLine("GetCommandLineArgs: {0}", String.Join(", ", arguments))
    32. 'TextBox1.Text = "GetCommandLineArgs: {0}", String.Join(", ", arguments)
    34. MsgBox(arguments(0).ToString)
    35. MsgBox(arguments(1).ToString)
    36. MsgBox(arguments(2).ToString)
    38. Catch ex As Exception
    40. End Try
    41. End Sub
    42. Private Function Registry_lesen(KeyName As String, ValueName As String, Value As String) As String
    43. Return Registry.GetValue(KeyName, ValueName, Value)
    44. End Function
    45. Private Function Registry_schreiben(KeyName As String, ValueName As String, Value As String) As String
    46. Registry.SetValue(KeyName, ValueName, Value)
    47. '' https://www.vb-paradise.de/index.php/Thread/125664-Registry-SetValue-mit-Admin-Rechten/
    48. 'Dim myprocess As System.Diagnostics.Process = New System.Diagnostics.Process()
    49. 'With myprocess.StartInfo
    50. ' .FileName = ("reg.exe")
    51. ' .CreateNoWindow = False
    52. ' .Arguments = "add " + Chr(34) + KeyName + Chr(34) + " /v HiberbootEnabled /t REG_DWORD /d 0 /f"
    53. ' .RedirectStandardInput = False
    54. ' .RedirectStandardOutput = False
    55. ' .RedirectStandardError = False
    56. ' .UseShellExecute = True
    57. ' .Verb = "runas"
    58. 'End With
    59. 'myprocess.Start()
    60. End Function
    61. Private Function Registry_erstellen(KeyName As String, ValueName As String, Value As String) As String
    62. 'Registry.ClassesRoot.CreateSubKey(KeyName)
    63. 'Registry.ClassesRoot.OpenSubKey(ValueName)
    65. ''Registry_schreiben(KeyName, ValueName, Value)
    66. 'Registry.ClassesRoot.SetValue(ValueName, Value)
    67. ' Create a subkey named Test9999 under HKEY_CLASSES_ROOT.
    68. Dim test9999 As RegistryKey = Registry.ClassesRoot.CreateSubKey(KeyName)
    70. ' Create two subkeys under HKEY_CURRENT_USER\Test9999.
    71. 'test9999.CreateSubKey("TestName").Close()
    72. Dim testSettings As RegistryKey = test9999.CreateSubKey("Command")
    74. 'testSettings.DeleteValue(ValueName)
    75. ' Create data for the TestSettings subkey.
    76. 'testSettings.SetValue(ValueName, Value)
    77. Registry.SetValue("HKEY_CLASSES_ROOT\" & KeyName & "\Command", ValueName, Value)
    78. testSettings.Close()
    79. End Function
    81. Private Sub Btn_Lesen_Click(sender As Object, e As EventArgs) Handles Btn_Lesen.Click
    82. TBox_Ergebnis.Text = Registry_lesen(TBox_KeyName.Text, TBox_ValueName.Text, TBox_Value.Text)
    83. End Sub
    85. Private Sub Btn_Schreiben_Click(sender As Object, e As EventArgs) Handles Btn_Schreiben.Click
    86. Registry_schreiben(TBox_KeyName.Text, TBox_ValueName.Text, TBox_NeuerWert.Text)
    87. TBox_Value.Text = Registry_lesen(TBox_KeyName.Text, TBox_ValueName.Text, TBox_Value.Text)
    88. End Sub
    90. Private Sub Btn_Erstellen_Click(sender As Object, e As EventArgs) Handles Btn_Erstellen.Click
    91. ' Für den ersten Eintrag (Standard) mit ValueName = "" sein. Sonst legt er einen neuen an
    92. Call Registry_erstellen("*\shell\Datei mit Outlook verschicken", "", Application.ExecutablePath)
    93. End Sub
    95. End Class


    Wie meinst Du dass mit den Screenshot? Da ich zwar noch VB.Net offen habe (Projekt aber nicht gestartet habe) komme ich leider nach dem Rechtsklick an keine Stoppmarken oder an die Anzeige der Console ran (deshalb auch der Weg über die MsgBox. Die Zeile mit der Textbox1 funktioniert so leider auch nicht.

    @Volker Bunge Wo das steht ist völlig egal.
    Wichtig ist, wie Du das aufrufst.
    ====
    Meinst Du vielleicht so was:
    Die zu verwendende App auswählen => hier: SolutionExplorer.exe

    beim nächsten Mal wird sie vom System angeboten:

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Volker Bunge Du willst also PDF (zusätzlich) mit Deinem Programm verknüpfen?
    Dateierweiterung für eigenes Programm registrieren
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo RodFromGermany,

    nicht nur PDF-Dateien sondern eigentlich alle.

    Habe gerade aber wohl meinen Fehler selbst gefunden bzw. durch Zufall entdeckt.

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. ' Für den ersten Eintrag (Standard) mit ValueName = "" sein.
    4. ' Prüfen, ob Programm schon registriert ist. Wenn nicht, dies nachholen
    5. ' "\\homeserver2\Nuetzliche Programmiertools\Visual Studio 2017\ProgImExplorerAufrufen\ProgImExplorerAufrufen\bin\Debug\ProgImExplorerAufrufen.exe" --share-file="%V"
    6. ' MsgBox(Registry_lesen("HKEY_CLASSES_ROOT\*\shell\Datei mit Outlook verschicken\Command", "", "") & vbCrLf & Chr(34) & Application.ExecutablePath & Chr(34) & " --share-file=" & Chr(34) & "%V" & Chr(34))
    7. If Registry_lesen("HKEY_CLASSES_ROOT\*\shell\Datei mit Outlook verschicken\Command", "", "") <> Chr(34) & Application.ExecutablePath & Chr(34) & " --share-file=" & Chr(34) & "%V" & Chr(34) Then
    8. Call Registry_erstellen(" *\ Shell() \ Datei mit Outlook verschicken", "", Application.ExecutablePath & " --share-file=" & Chr(34) & "%V" & Chr(34))
    9. ' Das Programm sollte über Autostart geladen werden. Wenn hier zu einem neuen Eintrag gekommen ist, dann hier das Programm verlassen
    10. MsgBox("Programm kann jetzt per Rechtsklick 'Datei mit Outlook verschicken' im Explorer aufgerufen werden.")
    11. Me.Close()
    12. Application.Exit()
    13. Exit Sub
    14. End If
    16. 'Call Class1.Main()
    18. 'Console.WriteLine()
    19. ' Invoke this sample with an arbitrary set of command line arguments.
    20. ' Rufen Sie dieses Beispiel mit einem beliebigen Satz von Befehlszeilenargumenten auf.
    21. Dim arguments As String() = Environment.GetCommandLineArgs()
    22. Try
    23. ' Console.WriteLine("GetCommandLineArgs: {0}", String.Join(", ", arguments))
    24. 'TextBox1.Text = "GetCommandLineArgs: {0}", String.Join(", ", arguments)
    25. MsgBox(arguments.Length)
    26. MsgBox(arguments(0).ToString)
    27. MsgBox(arguments(1).ToString)
    28. MsgBox(arguments(2).ToString)
    30. Catch ex As Exception
    32. End Try
    33. End Sub


    Habe einfach mal in einem anderen Registry-Eintrag von Skype dessen Eintrag mir genauer angesehen und dort die Angabe " --share-file="%V" entdeckt. Diese Tatsache habe ich dann mal eingebaut und siehe da, meine Arguments sind jetzt 2 lang.
    Im zweiten steht jetzt der kpl. Pfad der Datei, die ich mit Rechtsklick angeklickt habe.

    Mit dieser Info kann ich jetzt mein eigentliches Programm schreiben.

    Erst einmal vielen Dank für die schnelle Hilfe. Sollten sich noch weitere Probleme auftun, so melde ich mich noch einmal.

    Schönen Feiertag noch Euch allen.

    Gruß
    Volker

    Volker Bunge schrieb:

    nicht nur PDF-Dateien sondern eigentlich alle.
    Du willst Explorer-Unterstützung für ALLE Extensione?
    Was, wenn morgen eine völlig neue Extension auf den Markt kommt?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo RodFromGermany,

    mein Programm soll dazu dienen (für einen Freund), immer wieder kehrende Abläufe möglichst einfach zu bearbeiten.

    Er kennt sich mit Computer nicht so gut aus und hat oben drein noch körperliche Einschränkungen. Er muss bspw. immer wieder Rechnungen scannen und diese an die Krankenkasse schicken. Hier wollte ich ein kleines Hilfsprogramm schreiben, mit der man auf vorgefertigte Schaltflächen klickt und damit entsprechende Aktionen auslöst.

    Es wird bspw. eine e-Mail an die Krankenkasse geschrieben (incl. des Anhanges, also die vorher angeklickte Datei). Diese Mail ist dann schon soweit fertig, dass er eigentlich nur noch auf Senden klicken muss. Die Angaben hierzu die braucht man dann nur einmal einzugeben und schon kann man auf einfache Art und Weise den Anhang verschicken.

    Wie das Programm am Ende aussieht, dass wird sich jetzt erst zeigen. Nur wenn ich das wichtigste Problem (siehe oben) nicht hinbekommen hätte, dann wäre das Programm so nicht realisierbar. Klar gebe es da noch andere Möglichkeiten (diese hätte ich dann vielleicht mal testen müssen), aber so kann man an jeder beliebigen Stelle das Programm starten.

    Ein Problem gibt es vielleicht jetzt schon: Wie muss ich vorgehen, wenn ich mehr als eine Datei markiere. Aber hierzu komme ich ggf. später noch.

    Mein Programm kann ja immer noch bestimmte Dateitypen nur zulassen. Aber das ist hier nur eine kleine Randbedingung.

    Gruß
    Volker

    @Volker Bunge OK.
    Wie wäre es mit Drag'nDrop?
    Da kannst Du jede beliebige Datei aud eine Form ziehen und in Abhängigkeit der Extension und / oder einer Vorauswahl per ComboBox / RadioButton tun, was zu tun ist.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wäre auch eine Möglichkeit.

    Hätte ggf. einen Vorteil: Ich könnte hier gleich mehrere Dateien als Anhänge auswählen.

    Nachteil: Das Programm muss ständig sichtbar sein. (Gut, ist jetzt kein richtiger Nachteil, kann aber beim sonstigen Bedienen ggf. stören).

    Ich werde mal schauen, wie weit ich mit der Rechtsklick-Methode komme und ggf. auch Drag&Drop möglich machen.

    Gruß
    Volker

    @Volker Bunge:

    Schaust du hier: ookii.org/Blog/opening_files_via_idroptarget_in_net
    stackoverflow.com/questions/13…explorer-at-the-same-time
    Hier gibt es auch ein Sample: ookii.org%2Fdownload.ashx%3Fid%3DShellDropTargetSample Ist zwar C#, kann man ja nach VB.NET übersetzen.
    Mfg -Franky-

Facebook