Функция GetActiveWindow

Declare Function GetActiveWindow Lib "user32.dll" () As Long

Платформа: Win 95/98, Win NT

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
Категория Окна

В начало