Функция FindWindow

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long

Платформа

FindWindow ищет все окна,которые соответствуют имени класса окна и-или названию(заголовку) окна. Механизм поиска функции не чувствителен к регистру. Если Вы не желаете определять имя класса или название(заголовок) окна, Вы должны использовать пустой указатель,как признак его незначимости(vbNullString) .

Возвращаемое значение

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

Параметры

lpClassName
Имя класса окна. Используйте vbNullString,чтобы игнорировать класс окна.
lpWindowName
Имя окна(заголовок в верхней части окна). Используйте vbNullString,чтобы игнорировать заголовок окна.

Пример

' Ищем окно с именем Калькулятор и заставляем мигнуть заголовок. 
'Не обязательно знать имя класса окна,которое мы ищем,
'но можем использовать это имя при желании.
Dim hwnd As Long  ' дескриптор окна
Dim retval As Long  ' возвращаемое значение

' пытаемся найти окно Калькулятор.
hwnd = FindWindow(vbNullString, "Калькулятор") 
If hwnd = 0 Then  ' если не найдем
  Debug.Print "Калькулятор в настоящее время не выполняется." 
Else
  ' Заставляем мигнуть заголовок один раз.
  retval = FlashWindow(hwnd, 1)
  Sleep 500  'Пауза в течении полсекунды
  retval = FlashWindow(hwnd, 0)
End If

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

В начало.

фонбет отзывы вебсайт
fonbet.msk.ru