Active Window of Desktop

[eng70640]

Is it possible to obtain the all handles of the child windows of the active window (window in focus) in the desktop ?

[amitabh]

"FindWindowEx" api call does return handle all windows includng the child windows. Use this api call to collect all the hwnd's. Use the "GetParent" Api call to know which window is a child of the currently active window.

[eng70640]

Hi , can you show me the code because i am new to api programming . :)

Originally posted by amitabh
"FindWindowEx" api call does return handle all windows includng the child windows. Use this api call to collect all the hwnd's. Use the "GetParent" Api call to know which window is a child of the currently active window.

[amitabh]

Sorry. I am on a computer wich doesnot have VB and will not be on one until the next couple of days.

Look at www.vbapi.com/ref/f/findwindowex.html and www.allapi.net for futher refrence. vbapi.com has some excellent tutorials on using api in VB. If you are new to api's, you can stick to what Vlatko has written.

Add to a Module.

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
Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim Length As Long
Dim sName As String
Dim Temp As String
Static iCount As Integer

iCount = iCount + 1
Length = GetWindowTextLength(hwnd) + 1

If Length > 1 Then
sName = Space(Length)
GetWindowText hwnd, sName, Length
Debug.Print Left(sName, Length - 1) & " - " & hWnd
End If

EnumWindowsProc = 1
End Function


Add to a Form

Private Sub Command1_Click()
EnumWindows AddressOf EnumWindowsProc, 0
End Sub