Externes Programm in Taskleiste verstecken

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

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Murdock.

    Externes Programm in Taskleiste verstecken

    Hallo zusammen,

    in Anlehnung an diesen Beitrag versuche ich ein externes Programm zu 'verstecken'.
    Das gelingt auch wie folgt:

    VB.NET-Quellcode

    1. Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal nCmdShow As SHOW_WINDOW) As Boolean
    3. Private Enum SHOW_WINDOW As Integer
    4. SW_HIDE = 0
    5. SW_SHOWNORMAL = 1
    6. SW_NORMAL = 1
    7. SW_SHOWMINIMIZED = 2
    8. SW_SHOWMAXIMIZED = 3
    9. SW_MAXIMIZE = 3
    10. SW_SHOWNOACTIVATE = 4
    11. SW_SHOW = 5
    12. SW_MINIMIZE = 6
    13. SW_SHOWMINNOACTIVE = 7
    14. SW_SHOWNA = 8
    15. SW_RESTORE = 9
    16. SW_SHOWDEFAULT = 10
    17. SW_FORCEMINIMIZE = 11
    18. SW_MAX = 11
    19. End Enum
    22. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    23. For Each p As Process In Process.GetProcessesByName("NAME")
    24. ShowWindow(p.MainWindowHandle, SHOW_WINDOW.SW_HIDE)
    25. Next
    26. End Sub


    Um das Programm nun wieder anzuzeigen, auch in der Taskleiste, habe ich folgendes versucht:

    VB.NET-Quellcode

    1. Private Sub NotifyIcon1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
    2. For Each p As Process In Process.GetProcessesByName("NAME")
    3. ShowWindow(p.MainWindowHandle, SHOW_WINDOW.SW_SHOW)
    4. Next
    5. End Sub


    Auch andere Optionen in der Enumeration

    Quellcode

    1. SHOW_WINDOW
    werden konsequent ignoriert.

    Wie kann man dieses Programm also wieder anzeigen?


    Viele Grüße,
    Hitch

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

    Hitch schrieb:

    Auch andere Optionen
    Hast Du die alle ausprobiert?
    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!

    OK - Habe jetzt eine annehmbare Lösung gefunden:

    VB.NET-Quellcode

    1. Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal nCmdShow As SHOW_WINDOW) As Boolean
    2. Dim sp As New ArrayList
    3. Dim programname As String = "NAME"
    5. Private Enum SHOW_WINDOW As Integer
    6. SW_HIDE = 0
    7. SW_SHOWNORMAL = 1
    8. SW_NORMAL = 1
    9. SW_SHOWMINIMIZED = 2
    10. SW_SHOWMAXIMIZED = 3
    11. SW_MAXIMIZE = 3
    12. SW_SHOWNOACTIVATE = 4
    13. SW_SHOW = 5
    14. SW_MINIMIZE = 6
    15. SW_SHOWMINNOACTIVE = 7
    16. SW_SHOWNA = 8
    17. SW_RESTORE = 9
    18. SW_SHOWDEFAULT = 10
    19. SW_FORCEMINIMIZE = 11
    20. SW_MAX = 11
    21. End Enum
    23. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    24. hide_program
    25. End Sub
    27. Private Sub NotifyIcon1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
    28. show_program()
    29. End Sub
    31. Private Sub hide_program()
    32. For Each p As Process In Process.GetProcessesByName(programname)
    33. sp.Add(p)
    34. ShowWindow(p.MainWindowHandle, SHOW_WINDOW.SW_HIDE)
    35. Next
    36. End Sub
    38. Private Sub show_program()
    39. For Each p As Process In sp
    40. ShowWindow(p.MainWindowHandle, SHOW_WINDOW.SW_RESTORE)
    41. ShowWindow(p.MainWindowHandle, SHOW_WINDOW.SW_SHOW)
    42. ShowWindow(p.MainWindowHandle, SHOW_WINDOW.SW_SHOWNORMAL)
    43. Next
    44. sp.Clear()
    45. End Sub


    Gibt's hierzu evtl. Anmerkungen?

    Ich würde eher auf eine List of(T) zurückgreifen, die ArrayList ist glaub ich veraltet. Der Grund warum das Fenster nicht wieder angezeigt wurde, ist das Process.MainWindowHandle IntPtr.Zero zurückgibt, wenn das Fenster "Hidden" ist. Also ent6weder in einer List of T die Handles sichern oder mit FindWindow das Fenster suchen. Da auch mal etwas schief gehen kann bei Api Calls, wäre es sinnvoll, den zurück gegebenen Boolean von ShowWindow auch auszuwerten, wenn das Fenster nämlich nicht gezeigt wird, ist deine Liste leer.

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    5. Private l As New List(Of IntPtr)
    7. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    8. Private Shared Function ShowWindow(ByVal hWnd As IntPtr, ByVal nCmdShow As ShowWindowCommands) As Boolean
    9. End Function
    11. Enum ShowWindowCommands As Integer
    12. Hide = 0
    13. Normal = 1
    14. ShowMinimized = 2
    15. Maximize = 3
    16. ShowMaximized = 3
    17. ShowNoActivate = 4
    18. Show = 5
    19. Minimize = 6
    20. ShowMinNoActive = 7
    21. ShowNA = 8
    22. Restore = 9
    23. ShowDefault = 10
    24. ForceMinimize = 11
    25. End Enum
    27. Private Sub BTN_HIDE_Click(sender As Object, e As EventArgs) Handles BTN_HIDE.Click
    28. For Each p As Process In Process.GetProcessesByName("notepad")
    29. If ShowWindow(p.MainWindowHandle, ShowWindowCommands.Hide) Then
    30. l.Add(p.MainWindowHandle)
    31. End If
    32. Next
    33. End Sub
    35. Private Sub NOIC_DoubleClick(sender As Object, e As EventArgs) Handles NOIC.DoubleClick
    36. Dim intptrs() As IntPtr = l.ToArray
    37. For i = 0 To intptrs.Length - 1
    38. If ShowWindow(intptrs(i), ShowWindowCommands.Show) Then
    39. l.Remove(intptrs(i))
    40. End If
    41. Next
    42. End Sub
    44. End Class

Facebook
Telefonspende