Fremdprogramm starten über "Öffnen mit"

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von -Franky-.

    Fremdprogramm starten über "Öffnen mit"

    Neu

    Hallo,
    ich möchte eine jpg Datei bearbeiten und mit "Öffnen mit" das Programm auswählen können.
    Bisher kann ich aber nur das Default Programm starten.

    VB.NET-Quellcode

    1. Dim myProcess As New Process
    2. myProcess.StartInfo.FileName = PfadBilder & GroupBoxBild.Text
    3. myProcess.StartInfo.UseShellExecute = True
    4. myProcess.StartInfo.RedirectStandardOutput = False
    5. myProcess.Start()
    6. myProcess.Dispose()


    hat jemand eine tipp für mich?

    Helmut

    *VB.NET-BBCode eingefügt*
    Bilder

    • Screenshot 2024-11-10 134334.jpg

      78,33 kB, 758×540, 17 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Neu

    Ich vermute, du musst das gewünschte Programm angeben, sowas wie myProcess.StartInfo.FileName = "C:\Programme\Adobe\Photoshop\Photoshop.exe " & PfadBilder & GroupBoxBild.Text. Steht das Programm im PATH des Systems, so reicht auch Photoshop.exe ohne Pfad bzw. natürlich auch einfach Photoshop.
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

    Neu

    Hi

    Das erste was mir da in den Sinn kommt ist die API SHOpenWithDialog -> learn.microsoft.com/en-us/wind…obj_core-shopenwithdialog

    Als Alternative, und erst ab Win10, gäbe es auch eine Möglichkeit per WinRT Launcher Klasse.
    Mfg -Franky-

    Neu

    @Kalimba Willkommen im Forum. :thumbup:
    Was hast Du vor?
    Soll Dein Programm im Explorer-Contextmenü erscheinen?
    Wenn ja: Löse das Problem manuell, indem Du Dein Programm über "Andere App auswählen" auswählst und diese als Standard auswählst.
    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!

    Neu

    Ich will eine .JPG Datei bearbeiten und möchte das externe Programm (Paint, Paint3D,Paint.net, ..) auswählen.

    ich habe eine Lösung gefunden:
    Dim myProcess As New Process
    myProcess.Start("rundll32", "shell32.dll,OpenAs_RunDLL " & filePath)
    myProcess.Dispose()

    Danke für die Unterstützung,
    Helmut

    Neu

    Hi. Es ist relativ egal welchen Weg Du gehst. Viele Wege führen zum Ziel. Am Ende wird immer der gleiche Dialog aufgerufen. Den kann man entsprechend auch direkt, ohne Umwege, aufrufen. ;) Letzteres hat auch den Vorteil das man den Dialog per Flags ein wenig anpassen und steuern kann.
    Mfg -Franky-

    Neu

    @Kalimba Zieh Dir Deine Programme per Shortcut auf den Desktop und ziehe danach Deine PNG auf das entsprechende Shortcut.
    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!

    Neu

    @RodFromGermany Warum so kompliziert wenn es auch Einfach geht? Ich möchte meinen Desktop nicht mit zig Anwendungen zupflastern die ich zum Bearbeiten verschiedenster Dateien benötigen könnte. Einfach die in Windows vorhandene API bzw. den vorhandenen Dialog dafür nutzen. ;) Fertig.

    @Kalimba Auf die schnelle. Keine zusätzlichen Referenzen, keine zusätzlichen Nuget-Pakete, direkt und keine Umwege über nicht dokumentierten Code.
    Eine Klasse OpenWithDialog (kann man natürlich seinen Wünschen anpassen und verbessern)
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Imports System.Runtime.InteropServices
    4. Public Class OpenWithDialog
    6. Private Const S_OK As Integer = 0
    8. ' Starting in Windows 10, the OAIF_ALLOW_REGISTRATION, OAIF_FORCE_REGISTRATION and OAIF_HIDE_REGISTRATION flags will be ignored.
    9. Public Enum OPEN_AS_INFO_FLAGS As UInteger
    10. OAIF_ALLOW_REGISTRATION = 1
    11. OAIF_REGISTER_EXT = 2
    12. OAIF_EXEC = 4
    13. OAIF_FORCE_REGISTRATION = 8
    14. OAIF_HIDE_REGISTRATION = 32
    15. OAIF_URL_PROTOCOL = 64
    16. OAIF_FILE_IS_URI = 128
    17. End Enum
    19. Private Structure OPENASINFO
    20. <MarshalAs(UnmanagedType.LPWStr)> Dim pcszFile As String
    21. <MarshalAs(UnmanagedType.LPWStr)> Dim pcszClass As String
    22. Dim oaifInFlags As OPEN_AS_INFO_FLAGS
    23. Sub New(szFile As String,
    24. szClass As String,
    25. inFlags As OPEN_AS_INFO_FLAGS)
    26. pcszFile = szFile
    27. pcszClass = szClass
    28. oaifInFlags = inFlags
    29. End Sub
    30. End Structure
    32. <DllImport("Shell32.dll", EntryPoint:="SHOpenWithDialog")>
    33. <PreserveSig> Private Shared Function SHOpenWithDialog(<[In]> hwndParent As IntPtr,
    34. <[In]> ByRef poainfo As OPENASINFO) As Integer
    35. End Function
    37. Public Function ShowDialog(FileName As String) As Boolean
    38. Return OpenWithDialog(FileName, Nothing, OPEN_AS_INFO_FLAGS.OAIF_EXEC, Nothing)
    39. End Function
    41. Public Function ShowDialog(FileName As String,
    42. ClassName As String) As Boolean
    43. Return OpenWithDialog(FileName, ClassName, OPEN_AS_INFO_FLAGS.OAIF_EXEC, Nothing)
    44. End Function
    46. Public Function ShowDialog(FileName As String,
    47. ClassName As String,
    48. Flags As OPEN_AS_INFO_FLAGS) As Boolean
    49. Return OpenWithDialog(FileName, ClassName, Flags, Nothing)
    50. End Function
    52. Public Function ShowDialog(FileName As String,
    53. Parent As IWin32Window) As Boolean
    54. Return OpenWithDialog(FileName, Nothing, OPEN_AS_INFO_FLAGS.OAIF_EXEC, Parent)
    55. End Function
    57. Public Function ShowDialog(FileName As String,
    58. ClassName As String,
    59. Parent As IWin32Window) As Boolean
    60. Return OpenWithDialog(FileName, ClassName, OPEN_AS_INFO_FLAGS.OAIF_EXEC, Parent)
    61. End Function
    63. Public Function ShowDialog(FileName As String,
    64. ClassName As String,
    65. Flags As OPEN_AS_INFO_FLAGS,
    66. Parent As IWin32Window) As Boolean
    67. Return OpenWithDialog(FileName, ClassName, Flags, Parent)
    68. End Function
    70. Private Function OpenWithDialog(szFile As String,
    71. szClass As String,
    72. eFlags As OPEN_AS_INFO_FLAGS,
    73. winParent As IWin32Window) As Boolean
    74. Dim Ret As Boolean
    75. Dim hParent As IntPtr = Nothing
    76. Dim OpenInfo = New OPENASINFO(szFile, szClass, eFlags)
    77. If winParent IsNot Nothing Then hParent = winParent.Handle
    78. If SHOpenWithDialog(hParent, OpenInfo) = S_OK Then Ret = True
    79. Return Ret
    80. End Function
    82. End Class


    VB.NET-Quellcode

    1. ​
    2. Public Class Form1
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. Dim OWD As New OpenWithDialog
    6. OWD.ShowDialog("D:\DeinBild.jpg")
    8. End Sub
    9. End Class
    Mfg -Franky-