Enumerate Windows

Category: WinSpy

Date: 03-28-2012

Return to Index


 
'Compilable Example:
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Include "WIN32API.INC"
 
Global wList$
 
'// To determine if a hwnd is visible:
'IF IsWindowVisible(hWnd) = 1 THEN 'Window is visible
 
'// To determine the Process ID of a window:
'IF GetWindowThreadProcessId(hWnd,lProc) THEN MSGBOX "Process ID=" & STR$(lProc)
 
Function ParentCallback (ByVal hWndChild As Long, lRaram As LongAs Long
   DIM szClass As AsciiZ * %MAX_PATH
   DIM szText  As AsciiZ * %MAX_PATH
   DIM lRes                As Long
   lRes = GetClassName(hWndChild, szClass, SIZEOF(szClass))
   lRes = GetWindowText(hWndChild, szText, SIZEOF(szText))
   wList$ = wList$ + $crlf + "  Child: Class=" & szClass & " " & "Text=" & szText
   lRes = EnumChildWindows(hWndChild, CODEPTR(ChildCallback), 0&)
   Function = 1
End Function
 
Function ChildCallback (ByVal hWndChild As Long, lRaram As LongAs Long
   DIM szClass As AsciiZ * %MAX_PATH
   DIM szText  As AsciiZ * %MAX_PATH
   DIM lRes                As Long
   lRes = GetClassName(hWndChild, szClass, SIZEOF(szClass))
   lRes = GetWindowText(hWndChild, szText, SIZEOF(szText))
   wList$ = wList$ + $crlf + "PARENT: Class=" & szClass & " " & "Text=" & szText
   Function = 1
End Function
 
Function PBMain As Long
   ON ERROR RESUME NEXT
   temp$ = "Enumerating all parent and child windows..."
   DIM bResult As Long
   bResult = EnumChildWindows(GetDesktopWindow, CODEPTR(ParentCallback), 0&)
   ? temp$
End Function
 
'gbs_01090
'Date: 03-10-2012


created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm