Как узнать, активно моё приложение или нет?

[-=alp=-]

Как узнать, активно моё приложение или нет?

[JohnK]

По таймеру, ищеш активное окно, если заголовок товой- знач твое!

[MEMBER]

Не нравится нифига мне эта идея с таймером... Да и сравнение заголовков ни к чему.
Но вот что-то не нашёл я в мессаджах подходящего.

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

Private Declare Function GetActiveWindow Lib "user32" () As Long

Private Sub Timer1_Timer()
    If GetActiveWindow <> Me.hWnd Then
        Me.Caption = "Эх..."
    Else
        Me.Caption = "Ага!.."
    End If
End Sub

Всё таки через сабклассинг надо.

[GSerg]

Дык WM_KILLFOCUS же...

[MEMBER]

2 GSerg
Не пойдёт. Положи на форму любой объект, в который возможен ввод с клавиатуры и проверь kill_focus.
KILL_FOCUS генерируется тогда, когда фокус ввода с _клавиатуры_ меняется.

[GSerg]

When one window is deactivated and another activated, Windows sends the WM_ACTIVATE message first to the window being deactivated, then to the window being activated. The low-order word of the wParam parameter is zero if the window is being deactivated and nonzero if it is being activated. When the default window procedure receives the WM_ACTIVATE message, it sets the keyboard focus to the active window.

[MEMBER]

GSerg
О! Це дiло.
И примерчик подоспел.

[MEMBER]

А что, никому типа не надо? А зачем вопрос был?

[Ennor]

Более того: мне вообще непонятно, где растет такая трава, после которой такие задачи в голову приходят...

[MEMBER]

Мало-ли кому что нужно...