Windowstyle während des noch laufenden Prozesses ändern

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von xd-franky-5.

    Windowstyle während des noch laufenden Prozesses ändern

    Hallo :)
    Ich starte eine einen Prozess mit ​startInfo.WindowStyle = ProcessWindowStyle.Hidden. Ich möchte aber später den Windowstyle wieder auf normal setzen, geht das ? Google hat mir leider nur Unfug ausgespuckt.

    Danke schon mal im Voraus.

    Kurzfassung:
    Process.Start gibt dir eine Prozess-Instanz zurück.
    Die hat eine Property MainWindowHandle.
    Mit dieser kannst du mittels der WinApi-Funktion ShowWindow das Fenster auf ShowNormal oder ShowMaximized setzen.

    Falls dir das nicht reicht, melde dich nochmals.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    VB.NET-Quellcode

    1. ​Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer
    2. Sub ShowAppWindow()
    3. Dim localByName As Process() = Process.GetProcessesByName("iTunes")
    4. For Each p As Process In localByName
    5. ShowWindow(p.MainWindowHandle, 5) ' 5 wäre jetzt show
    6. Next
    7. End Sub

    Zum einen hätte ich die .Net-Signatur genommen.
    pinvoke.net/default.aspx/user32.showwindow

    Zum andern hätte ich das Handle nicht gesucht, weil es schon da ist.

    VB.NET-Quellcode

    1. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    2. Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As ShowWindowCommands) As Boolean
    3. End Function
    4. ...
    5. Dim Prc As New Process
    6. Prc.StartInfo = ---
    7. Prc.Start ...
    8. Dim Changed = ShowWindow(Prc.MainWindowHandle, 5)
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

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

    Also wenn ich das mit dem bereits vorhandenen pr as process mache, kommt, dass der Prozess bereits beendet wurde, was aber nicht stimmt. Wenn ich das mit dem Suchen mache und halt mit dem Dllimport, komm wieder nichts.

    Schaut euch mal den Wert von Prc.MainWindowHandle an, weil das Fenster minimiert hidden ist, wirst du wohl IntPtr.Zero zurück kriegen. Also das Fenster mit FindWindow(-ex) suchen dann wird es gehen.

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

    xd-franky-5 schrieb:

    komm wieder nichts.
    Teste dies:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    4. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    5. Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As ShowWindowCommands) As Boolean
    6. End Function
    8. Enum ShowWindowCommands As Integer
    9. Hide = 0
    10. Normal = 1
    11. ShowMinimized = 2
    12. Maximize = 3
    13. ShowMaximized = 3
    14. ShowNoActivate = 4
    15. Show = 5
    16. Minimize = 6
    17. ShowMinNoActive = 7
    18. ShowNA = 8
    19. Restore = 9
    20. ShowDefault = 10
    21. ForceMinimize = 11
    22. End Enum
    24. Dim MainWnd As IntPtr
    25. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    26. Dim pr = Process.Start("Notepad.exe")
    27. pr.WaitForInputIdle()
    28. MainWnd = pr.MainWindowHandle
    29. End Sub
    31. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    32. ShowWindow(MainWnd, ShowWindowCommands.Maximize)
    33. End Sub
    35. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    36. ShowWindow(MainWnd, ShowWindowCommands.Minimize)
    37. End Sub
    39. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    40. ShowWindow(MainWnd, ShowWindowCommands.Normal)
    41. End Sub
    42. End Class
    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!

    @Murdock Jou.
    @xd-franky-5 Das geht nicht, da das MainWindowHandle dieses unsichtbaren Prozesses NULL (IntPtr.Zero) ist.

    Du musst das Programm visible starten und unmittelbar nach dem Start auf hide setzen, starte es minimiert:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    4. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    5. Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As ShowWindowCommands) As Boolean
    6. End Function
    8. Enum ShowWindowCommands As Integer
    9. Hide = 0
    10. Normal = 1
    11. ShowMinimized = 2
    12. Maximize = 3
    13. ShowMaximized = 3
    14. ShowNoActivate = 4
    15. Show = 5
    16. Minimize = 6
    17. ShowMinNoActive = 7
    18. ShowNA = 8
    19. Restore = 9
    20. ShowDefault = 10
    21. ForceMinimize = 11
    22. End Enum
    24. Dim MainWnd As IntPtr
    25. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    26. Dim pr = New Process
    27. pr.StartInfo.FileName = "Notepad.exe"
    28. 'pr.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    29. pr.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
    30. pr.Start()
    31. pr.WaitForInputIdle()
    32. MainWnd = pr.MainWindowHandle
    33. ShowWindow(MainWnd, ShowWindowCommands.Hide)
    34. End Sub
    36. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    37. ShowWindow(MainWnd, ShowWindowCommands.Maximize)
    38. End Sub
    40. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    41. ShowWindow(MainWnd, ShowWindowCommands.Minimize)
    42. End Sub
    44. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    45. ShowWindow(MainWnd, ShowWindowCommands.Normal)
    46. End Sub
    48. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    49. ShowWindow(MainWnd, ShowWindowCommands.Hide)
    50. End Sub
    51. End Class

    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!

    Mit FindWindow(-Ex) bekommt man trotzdem ein gültiges Fensterhandle, der Prozess muss nicht zwingend sichtbar gestartet werden.

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

    Murdock schrieb:

    FindWindow(-Ex)
    Jou.

    VB.NET-Quellcode

    1. <DllImport("user32.dll", CharSet:=CharSet.Unicode)> _
    2. Public Shared Function FindWindowEx(parentHandle As IntPtr, childAfter As IntPtr, className As String, windowTitle As String) As IntPtr
    3. End Function
    5. Dim MainWnd As IntPtr
    6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. Dim pr = New Process
    8. pr.StartInfo.FileName = "Notepad.exe"
    9. pr.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    10. 'pr.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
    11. pr.Start()
    12. pr.WaitForInputIdle()
    13. 'MainWnd = pr.MainWindowHandle
    14. 'ShowWindow(MainWnd, ShowWindowCommands.Hide)
    16. MainWnd = FindWindowEx(IntPtr.Zero, IntPtr.Zero, Nothing, "Unbenannt - Editor")
    17. End Sub
    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!