> Hi,
>
> First of all, the Task Manager's Applications tab shows the captions of
> visible, top-level windows. The Task Manager builds this list by walking
> through all of the top-level windows in the system (using something like
> EnumWindows), and adds to the list the windows that have the WS_VISIBLE
> style bit turned on.
>
> I've created a simple WinForm application to demonstrate how to get the
> window list as shown in Task Manager:
>
> 1) Create a simple Windows Application using VB.NET
> 2) Add a ListBox (set its "Sorted" to true) and a Button to the default
> WinForm
> 3) Paste following code in the default WinForm's class:
>
>     Delegate Function EnumWindowsProc(ByVal hWnd As System.IntPtr, ByVal
> lParam As IntPtr) As Boolean
>
>     Declare Auto Function EnumWindows Lib "user32" (ByVal lpEnumFunc As
> EnumWindowsProc, ByVal lParam As IntPtr) As Boolean
>     Declare Auto Function IsWindowVisible Lib "user32" (ByVal hWnd As
> IntPtr) As Boolean
>     Declare Auto Function GetWindowText Lib "user32" (ByVal hwnd As IntPtr,
> ByVal lpString As StringBuilder, ByVal cch As Integer) As Integer
>     Declare Auto Function GetWindowTextLength Lib "user32" (ByVal hwnd As
> IntPtr) As Integer
>
>     Declare Auto Function SendMessage Lib "user32" (ByVal hWnd As IntPtr,
> ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As
> Integer
>     Const WM_CLOSE As Integer = &H10
>
>     Private Function MyEnumWindowsProc(ByVal hWnd As IntPtr, ByVal lParam
> As IntPtr) As Boolean
>         If IsWindowVisible(hWnd) Then
>             Dim buffLen As Integer = GetWindowTextLength(hWnd)
>             Dim sb As New StringBuilder(buffLen + 1)
>             GetWindowText(hWnd, sb, sb.Capacity)
>             Dim caption As String = sb.ToString()
>             If (caption.Length > 0) Then
>                 ListBox1.Items.Add(caption)
>             End If
>         End If
>         Return True
>     End Function
>
>     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
>         EnumWindows(AddressOf MyEnumWindowsProc, IntPtr.Zero)
>     End Sub
>
> To close the window using window handle ("hWnd" in MyEnumWindowsProc), you
> can use:
>
>     SendMessage(hWnd, WM_CLOSE, 0, 0)
>    
> Hope this helps. Please feel free to post here if anything is unclear.
>
> Sincerely,
> Walter Wang (waw***@online.microsoft.com, remove 'online.')
> Microsoft Online Community Support
>
> ==================================================
> Get notification to my posts through email? Please refer to
> http://msdn.microsoft.com/subscriptions/managednewsgroups/default.aspx#notif
> ications.
>
> Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
> where an initial response from the community or a Microsoft Support
> Engineer within 1 business day is acceptable. Please note that each follow
> up response may take approximately 2 business days as the support
> professional working with you may need further investigation to reach the
> most efficient resolution. The offering is not appropriate for situations
> that require urgent, real-time or phone-based interactions or complex
> project analysis and dump analysis issues. Issues of this nature are best
> handled working with a dedicated Microsoft Support Engineer by contacting
> Microsoft Customer Support Services (CSS) at
> http://msdn.microsoft.com/subscriptions/support/default.aspx.
> ==================================================
>
> This posting is provided "AS IS" with no warranties, and confers no rights.
>

> Hi,
>
> First of all, the Task Manager's Applications tab shows the captions of
> visible, top-level windows. The Task Manager builds this list by walking
> through all of the top-level windows in the system (using something like
> EnumWindows), and adds to the list the windows that have the WS_VISIBLE
> style bit turned on.
>
> I've created a simple WinForm application to demonstrate how to get the
> window list as shown in Task Manager:
>
> 1) Create a simple Windows Application using VB.NET
> 2) Add a ListBox (set its "Sorted" to true) and a Button to the default
> WinForm
> 3) Paste following code in the default WinForm's class:
>
>     Delegate Function EnumWindowsProc(ByVal hWnd As System.IntPtr, ByVal
> lParam As IntPtr) As Boolean
>
>     Declare Auto Function EnumWindows Lib "user32" (ByVal lpEnumFunc As
> EnumWindowsProc, ByVal lParam As IntPtr) As Boolean
>     Declare Auto Function IsWindowVisible Lib "user32" (ByVal hWnd As
> IntPtr) As Boolean
>     Declare Auto Function GetWindowText Lib "user32" (ByVal hwnd As IntPtr,
> ByVal lpString As StringBuilder, ByVal cch As Integer) As Integer
>     Declare Auto Function GetWindowTextLength Lib "user32" (ByVal hwnd As
> IntPtr) As Integer
>
>     Declare Auto Function SendMessage Lib "user32" (ByVal hWnd As IntPtr,
> ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As
> Integer
>     Const WM_CLOSE As Integer = &H10
>
>     Private Function MyEnumWindowsProc(ByVal hWnd As IntPtr, ByVal lParam
> As IntPtr) As Boolean
>         If IsWindowVisible(hWnd) Then
>             Dim buffLen As Integer = GetWindowTextLength(hWnd)
>             Dim sb As New StringBuilder(buffLen + 1)
>             GetWindowText(hWnd, sb, sb.Capacity)
>             Dim caption As String = sb.ToString()
>             If (caption.Length > 0) Then
>                 ListBox1.Items.Add(caption)
>             End If
>         End If
>         Return True
>     End Function
>
>     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
>         EnumWindows(AddressOf MyEnumWindowsProc, IntPtr.Zero)
>     End Sub
>
> To close the window using window handle ("hWnd" in MyEnumWindowsProc), you
> can use:
>
>     SendMessage(hWnd, WM_CLOSE, 0, 0)
>    
> Hope this helps. Please feel free to post here if anything is unclear.
>
> Sincerely,
> Walter Wang (waw***@online.microsoft.com, remove 'online.')
> Microsoft Online Community Support
>
> ==================================================
> Get notification to my posts through email? Please refer to
> http://msdn.microsoft.com/subscriptions/managednewsgroups/default.aspx#notif
> ications.
>
> Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
> where an initial response from the community or a Microsoft Support
> Engineer within 1 business day is acceptable. Please note that each follow
> up response may take approximately 2 business days as the support
> professional working with you may need further investigation to reach the
> most efficient resolution. The offering is not appropriate for situations
> that require urgent, real-time or phone-based interactions or complex
> project analysis and dump analysis issues. Issues of this nature are best
> handled working with a dedicated Microsoft Support Engineer by contacting
> Microsoft Customer Support Services (CSS) at
> http://msdn.microsoft.com/subscriptions/support/default.aspx.
> ==================================================
>
> This posting is provided "AS IS" with no warranties, and confers no rights.
>

> Actually it shows more applications than task manager does.  I'll have
> to do some experimenting on the specific app I want to close.
>
> Walter Wang [MSFT] wrote:
>> Hi,
>>
>> First of all, the Task Manager's Applications tab shows the captions
>> of visible, top-level windows. The Task Manager builds this list by
>> walking through all of the top-level windows in the system (using
>> something like EnumWindows), and adds to the list the windows that
>> have the WS_VISIBLE style bit turned on.
>>
>> I've created a simple WinForm application to demonstrate how to get
>> the window list as shown in Task Manager:
>>
>> 1) Create a simple Windows Application using VB.NET
>> 2) Add a ListBox (set its "Sorted" to true) and a Button to the
>> default WinForm
>> 3) Paste following code in the default WinForm's class:
>>
>>     Delegate Function EnumWindowsProc(ByVal hWnd As System.IntPtr,
>> ByVal lParam As IntPtr) As Boolean
>>
>>     Declare Auto Function EnumWindows Lib "user32" (ByVal lpEnumFunc
>> As EnumWindowsProc, ByVal lParam As IntPtr) As Boolean
>>     Declare Auto Function IsWindowVisible Lib "user32" (ByVal hWnd As
>> IntPtr) As Boolean
>>     Declare Auto Function GetWindowText Lib "user32" (ByVal hwnd As
>> IntPtr, ByVal lpString As StringBuilder, ByVal cch As Integer) As Integer
>>     Declare Auto Function GetWindowTextLength Lib "user32" (ByVal hwnd
>> As IntPtr) As Integer
>>
>>     Declare Auto Function SendMessage Lib "user32" (ByVal hWnd As
>> IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As
>> Integer) As Integer
>>     Const WM_CLOSE As Integer = &H10
>>
>>     Private Function MyEnumWindowsProc(ByVal hWnd As IntPtr, ByVal
>> lParam As IntPtr) As Boolean
>>         If IsWindowVisible(hWnd) Then
>>             Dim buffLen As Integer = GetWindowTextLength(hWnd)
>>             Dim sb As New StringBuilder(buffLen + 1)
>>             GetWindowText(hWnd, sb, sb.Capacity)
>>             Dim caption As String = sb.ToString()
>>             If (caption.Length > 0) Then
>>                 ListBox1.Items.Add(caption)
>>             End If
>>         End If
>>         Return True
>>     End Function
>>
>>     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
>> As System.EventArgs) Handles Button1.Click
>>         EnumWindows(AddressOf MyEnumWindowsProc, IntPtr.Zero)
>>     End Sub
>>
>> To close the window using window handle ("hWnd" in MyEnumWindowsProc),
>> you can use:
>>
>>     SendMessage(hWnd, WM_CLOSE, 0, 0)
>>     Hope this helps. Please feel free to post here if anything is
>> unclear.
>> Sincerely,
>> Walter Wang (waw***@online.microsoft.com, remove 'online.')
>> Microsoft Online Community Support
>>
>> ==================================================
>> Get notification to my posts through email? Please refer to
>> http://msdn.microsoft.com/subscriptions/managednewsgroups/default.aspx#notif
>>
>> ications.
>>
>> Note: The MSDN Managed Newsgroup support offering is for non-urgent
>> issues where an initial response from the community or a Microsoft
>> Support Engineer within 1 business day is acceptable. Please note that
>> each follow up response may take approximately 2 business days as the
>> support professional working with you may need further investigation
>> to reach the most efficient resolution. The offering is not
>> appropriate for situations that require urgent, real-time or
>> phone-based interactions or complex project analysis and dump analysis
>> issues. Issues of this nature are best handled working with a
>> dedicated Microsoft Support Engineer by contacting Microsoft Customer
>> Support Services (CSS) at
>> http://msdn.microsoft.com/subscriptions/support/default.aspx.
>> ==================================================
>>
>> This posting is provided "AS IS" with no warranties, and confers no
>> rights.

> Hi,
>
> Your method using System.Diagnostics.Process.GetProcesses will only show
> the main window of each process. If a process has multiple top-level
> windows, for example, if you open a Outlook 2003 email window, it shows
> multiple windows for Outlook in Task Manager.
>
> It seems Task Manager will not show window that has no caption, and it will
> not show dialogs displayed using RunDll32, such as the System Properties
> dialog, the Add/Remove dialog, etc. Using EnumWindows will find them
> correctly. I think if your intention is to find them and close them, then
> using my method will do the job.
>
> Hope this helps. Please feel free to post here if anything is unclear.
>
> Regards,
> Walter Wang (waw***@online.microsoft.com, remove 'online.')
> Microsoft Online Community Support
>
> ==================================================
> When responding to posts, please "Reply to Group" via your newsreader so
> that others may learn and benefit from your issue.
> ==================================================
>
> This posting is provided "AS IS" with no warranties, and confers no rights.
>

> Hi,
>
> Thank you for your update.
>
> How the Task Manager get the window list is undocumented. A reasonable
> heuristic is windows which are visible, which do not have an owner, and
> which do have a caption. My previous code is missing the condition "do not
> have an owner". To get the owner of a window, we can use "GetWindow()" with
> GW_OWNER as parameter.
>
> Then we have to deal with the window "Program Manager": it's still present
> for reasons of compatibility. We can ignore it by checking its window class
> name: "Progman".
>
> So the complete code listing would be:
>
>     Delegate Function EnumWindowsProc(ByVal hWnd As System.IntPtr, ByVal
> lParam As IntPtr) As Boolean
>
>     Declare Auto Function EnumWindows Lib "user32" (ByVal lpEnumFunc As
> EnumWindowsProc, ByVal lParam As IntPtr) As Boolean
>     Declare Auto Function IsWindowVisible Lib "user32" (ByVal hWnd As
> IntPtr) As Boolean
>     Declare Auto Function GetWindowText Lib "user32" (ByVal hwnd As IntPtr,
> ByVal lpString As StringBuilder, ByVal cch As Integer) As Integer
>     Declare Auto Function GetWindowTextLength Lib "user32" (ByVal hwnd As
> IntPtr) As Integer
>     Declare Auto Function GetWindowLong Lib "user32.dll" (ByVal hwnd As
> IntPtr, ByVal nIndex As Int32) As Int32
>     Declare Auto Function GetParent Lib "user32" (ByVal hwnd As IntPtr) As
> IntPtr
>     Declare Auto Function GetWindow Lib "user32" (ByVal hwnd As IntPtr,
> ByVal wCmd As Int32) As IntPtr
>     Const GW_OWNER As Int32 = 4
>     Declare Auto Function GetClassName Lib "user32" (ByVal hwnd As IntPtr,
> ByVal lpClassName As StringBuilder, ByVal nMaxCount As Integer) As Integer
>
>     Declare Auto Function SendMessage Lib "user32" (ByVal hWnd As IntPtr,
> ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As
> Integer
>     Const WM_CLOSE As Integer = &H10
>
>
>     Function GetWindowOwner(ByVal hwnd As IntPtr) As IntPtr
>         Return GetWindow(hwnd, GW_OWNER)
>     End Function
>
>     Function GetWindowCaption(ByVal hwnd As IntPtr) As String
>         Dim buffLen As Integer = GetWindowTextLength(hwnd)
>         Dim sb As New StringBuilder(buffLen + 1)
>         GetWindowText(hwnd, sb, sb.Capacity)
>         Return sb.ToString()
>     End Function
>
>     Function GetWindowClass(ByVal hwnd As IntPtr) As String
>         Dim sb As New StringBuilder(256)
>         GetClassName(hwnd, sb, sb.Capacity)
>         Return sb.ToString()
>     End Function
>
>     Private Function MyEnumWindowsProc(ByVal hWnd As IntPtr, ByVal lParam
> As IntPtr) As Boolean
>         If IsWindowVisible(hWnd) AndAlso GetWindowOwner(hWnd).ToInt32() = 0
> AndAlso GetWindowClass(hWnd) <> "Progman" Then
>             Dim caption As String = GetWindowCaption(hWnd)
>             If (caption.Length > 0) Then
>                 ListBox1.Items.Add(caption)
>             End If
>         End If
>         Return True
>     End Function
>
>     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
>         ListBox1.Items.Clear()
>         EnumWindows(AddressOf MyEnumWindowsProc, IntPtr.Zero)
>     End Sub
>    
> Hope this helps. Please feel free to post here if anything is unclear.
>
>
> Regards,
> Walter Wang (waw***@online.microsoft.com, remove 'online.')
> Microsoft Online Community Support
>
> ==================================================
> When responding to posts, please "Reply to Group" via your newsreader so
> that others may learn and benefit from your issue.
> ==================================================
>
> This posting is provided "AS IS" with no warranties, and confers no rights.
>