How to get the HWND or the Window Caption of all open apps? (SOLVED)

[D12Bit]

I need to know on certain times what is open and some to close others to minimize...but as a start I need to get the HWNDs and/or the Windows caption ...this is for running it at remote stations...

Some are W9x others are Me, W2000 and XP...

any help on this I'll appreciate it...TIA

[Joey_k29]

Taken straight from the API-GUIDE(a very useful tool):

'Add this code to a form
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    'Set the form's graphics mode to persistent
    Me.AutoRedraw = True
    'call the Enumwindows-function
    EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub
'Add this code to a module
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    Dim sSave As String, Ret As Long
    Ret = GetWindowTextLength(hwnd)
    sSave = Space(Ret)
    GetWindowText hwnd, sSave, Ret + 1
    Form1.Print Str$(hwnd) + " " + sSave
    'continue enumeration
    EnumWindowsProc = True
End Function

[D12Bit]

Thanks!...

Worked like a charm!

[Joey_k29]

No Problem. ALLAPI.net is where you get the API-GUIDE; it is great for simple API functions and learning purposes.

Joe