Функция GetActiveWindow

Declare Function GetActiveWindow Lib "user32" () As Long

GetActiveWindow возвращает описатель активного окна вашего текущего приложения (функция работает только с окнами, созданными вашей программой, т.е. вы не можете найти активное окно другой программы). Если ваше приложение неактивно, то функция ищет окно, которое будет активным, когда приложение станет активным.

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

В случае ошибки или в случае, если в вашей программе нет активных окон, функция возвращает 0

Пример

' Используем FlashWindow для мигания заголовка формы
Dim hactive As Long ' описатель активного окна
Dim retval As Long ' возвращаемое значение

hactive = GetActiveWindow() ' получаем описатель активного окна программы
' заставляем мигать заголовок формы
retval = FlashWindow(hactive, 1): Sleep 250
retval = FlashWindow(hactive, 1): Sleep 250
retval = FlashWindow(hactive, 0)

Смотри также

GetForegroundWindow, GetWindow, SetActiveWindow

Категория

Окна