Информация об окнах

Option Explicit
 
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Private Declare Function WindowFromPoint Lib "User32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "User32" (lpPoint As POINTAPI) As Long
Private Declare Function GetClassName Lib "User32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) 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 GetParent Lib "User32" (ByVal hWnd As Long) As Long
'************************************************************************************
' Сделать окно всегда сверху ( не имеет отношения к сбору информации об окнах, но для удобства ради)
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
 
Private Sub Form_Activate()
        SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub
'Конец Сделать окно всегда сверху
'***********************************************************************************************
 
 
' Процедура сбора информации об окнах
Private Sub WindowInfo()
 
Dim hWnd As Long, Parent As Long, Ret As Long
Dim MainClass$, ParentClass$, MainTxt$, ParentTXT$
MainClass$ = Space(256): ParentClass$ = Space(256)
MainTxt$ = Space(256): ParentTXT$ = Space(256)
Dim Pt As POINTAPI
' Узнать кординаты курсора
GetCursorPos Pt
' Сбор информации об окне под курсором
hWnd = WindowFromPoint(Pt.X, Pt.Y) 'уникальный идентификатор окна под курсором
Ret = GetClassName(hWnd, MainClass$, 256) ' Класс окна
Ret = GetWindowText(hWnd, MainTxt$, 256) ' Текст окна
' Сбор информации об родительском окне, если таковое имеется
Parent = GetParent(hWnd) 'уникальный идентификатор родительского окна
Ret = GetClassName(Parent, ParentClass$, 256) ' его класс
Ret = GetWindowText(Parent, ParentTXT$, 256) ' его текст
'Вывод информации в текстовые окна
Text1.Text = Hex(hWnd)
Text2.Text = Str(hWnd)
Text3.Text = Hex(Parent)
Text4.Text = Str(Parent)
Text5.Text = MainClass$
Text6.Text = ParentClass$
Text7.Text = MainTxt$
Text8.Text = ParentTXT$
End Sub
' вызываем процедуру сбора информации об окнах каждые 100 mc
Private Sub Timer1_Timer()
WindowInfo
End Sub

Private Sub CommandButtonW1_Click(Index As Integer)
    Dim s$
    Select Case Index
    Case 0
        LV_AddLines GetParent(GetParent(SelHWnd))
    Case 1
        LV_AddLines SelHWnd
    Case 2, 3
        CommandButtonW1(0).Enabled = (Index = 3)
        CommandButtonW1(2).Enabled = (Index = 3)
        ListView1.Enabled = (Index = 3)
        CommandButtonW1(3).Enabled = (Index = 2)
        TmrMouse.Interval = 100 * Abs((Index = 2))
        
    Case 4
        LoadKeyboardLayout "00000419", &H1 'русская расскладка
        With ListView1.SelectedItem
            s = .Text & vbTab & .SubItems(1) & vbTab & .SubItems(2)
            If Len(s) > 2 Then
                Clipboard.Clear
                Clipboard.SetText s
            End If
        End With
    End Select
End Sub