Найти внутренне окна/контролы приложения

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long ' âîçâðàùàåò äåñêðèïòîð îêíà, ñâÿçàííîãî ñ äàííûì îêíîì. Èìåþòñÿ ââèäó îòíîøåíèÿ ìåæäó äî÷åðíå - ðîäèòåëüñêèìè îêíàìè èëè îòíîøåíèÿ ìåæäó äî÷åðíèìè îêíàìè ñàìîãî ðîäèòåëüñêîãî îêíà
Const GW_HWNDNEXT = 2: Const GW_CHILD = 5
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_GETTEXT = &HD: Private Const WM_GETTEXTLENGTH = &HE
Dim HenTek&
 
Private Sub Form_Load()
Call ÑêàíÎêîí
End Sub
 
Public Sub ÑêàíÎêîí()
Dim strCaption As String
Dim hwnd&
hwnd = GetDesktopWindow()
hwnd = GetWindow(hwnd&, GW_CHILD)
Do
dummy& = GetWindowTextLength(hwnd)
  If dummy <> 0 Then
       strCaption = String(dummy + 1, " ")
         dummy = GetWindowText(hwnd, strCaption, dummy + 1)
         sSave = strCaption: If Asc(Right(strCaption, 1)) = 0 Then sSave = Left(strCaption, Len(strCaption) - 1) 'îòñåêàåì êîíå÷íûé "êâàäðàò"
         List1.AddItem Str(hwnd) + "  -  " + sSave:
               If sSave <> "" Then HenTek = hwnd: Call ÏîèñêÄåòåé 'ищем детей в окнах с заголовками
               'If hwnd = ÈñêîìûéÕåíäë Then HenTek = hwnd: Call ÏîèñêÄåòåé ' ищем по хендлу
  End If: hwnd = GetWindow(hwnd, GW_HWNDNEXT)
Loop While hwnd <> 0
End Sub
 
Public Sub ÏîèñêÄåòåé()
Dim buff$
Dim nextwin As Long ' ïîëó÷èì äåñêðèïòîð ñëåäóþùåãî îêíà â Z-order
List2.AddItem Str(HenTek) + " - äåòè ----------------------------":
nextwin = GetWindow(HenTek, GW_CHILD)  'ïîëó÷àåì äåñêðèïòîð äî÷åðíåãî îêíà
Do
   If nextwin <> 0 Then   ' íå èñïîëüçóéòå ôëàæêè, åñëè íèêàêîãî òàêîãî îêíà íå ñóùåñòâóåò
      buff = Space$(50): SendMessage nextwin, &HD, 40, ByVal buff: List2.AddItem Str(nextwin) + " " + Trim(buff):
          'If ×òî - òîÈñêîìîå Then Äåéñòâèÿ:
   End If: nextwin = GetWindow(nextwin, GW_HWNDNEXT) 'ïîëó÷àåì äåñêðèïòîð ñëåäóþùåãî îêíà
Loop While nextwin <> 0
End Sub