Про хендл окна

[Ramzes]

Как получать хендлы всех активных окон, которые откраваються?

[Ennor]

Эээ. Ну, EnumWindows(), как правило...

[Ramzes]

А поподробнее если можно.

[tyomitch]

Код: Выделить всё

Option Explicit

Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam 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 GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Sub Main()
EnumWindows AddressOf EnumWindowsProc, 0
End Sub

Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
Dim Name As String * 256, Class As String * 256
Debug.Print "Èìÿ: " & Left(Name, GetWindowText(hWnd, Name, 256)) & "  Êëàññ: " & Left(Class, GetClassName(hWnd, Class, 256))
EnumWindowsProc = 1
End Function