Функция EnumWindows

Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean

Платформа

EnumWindows перечисляет все окна верхнего уровня. Игнорирует дочерние окна. (Обратите внимание,что перечисляются все окна,в том числе невидимые для пользователя.)

Возвращаемое значение
В случае ошибки функция возвращает 0 (используйте GetLastError для получения кода ошибки). При успешной операции функция возвращает число,отличное от нуля.

Параметры

lpEnumFunc
Указатель на функцию обратного вызова EnumWindowsProc.
lParam
Дополнительное значение,определяемое приложением.

Пример:

' Отображаем заголовки всех окон.  
' Если окно не имеет заголовка,оно отображаться не будет.

' *** Поместите этот код в модуль.  Это функция с обратным вызовом. ***
' Эта функция показывает заголовок окна,используя его описатель.
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
  Dim sSave As String 'текст в буфере
  Dim retval As Long  ' возвращаемое значение
retval = GetWindowTextLength(hwnd) ' определяем длину заголовка окна
sSave = Space(retval)
 GetWindowText hwnd, sSave, retval + 1
Form1.Print Str$(hwnd) + " " + sSave
'продолжаем перечисление окон
    EnumWindowsProc = True
 End Function

' *** Поместите код в любое место,где будете перечислять окна ***
    Me.AutoRedraw = True
    'вызываем функцию Enumwindows
    EnumWindows AddressOf EnumWindowsProc, ByVal 0&

' Обратите внимание, что lParam
' установлен в 0, потому что мы не должны передавать любую дополнительную информацию к функции.

Схожие функции
EnumChildWindows, EnumThreadWindows
Категория
Окна

В начало.

авточехлы в краснодаре

авто-старюг.рф
бухгалтерское сопровождение

юристы-ялта.рф