И даже до конца не могу понять, что является "WinApi", а что нет. Увидел ваш код, и методом ненаучного тыка что-то "накатал".]]>
В будущих версиях Windows:
А в "восьмёрке" работает?
]]>с этим могут быть проблемы?
В Windows 7 вряд ли, а в XP SP1:
RegisterShellHookWindow function
This function was not included in the SDK headers and libraries until Windows XP with Service Pack 1 (SP1) and Windows Server 2003. If you do not have a header file and import library for this function, you can call the function using LoadLibrary and GetProcAddress.
В будущих версиях Windows:
This function is not intended for general use. It may be altered or unavailable in subsequent versions of Windows.
с этим могут быть проблемы?
Вы серьёзно? Почему вы считаете этот вопрос уместным?
]]>CoordMode, ToolTip, Screen
DllCall("RegisterShellHookWindow", "UInt", A_ScriptHwnd)
OnMessage(DllCall("RegisterWindowMessage", "str", "SHELLHOOK"), "ShellProc")
OnExit, Exit
Return
ShellProc(nCode, wParam)
{
static A := 1
If (nCode = 4)
{
WinGet, Process, ProcessName, % !wParam ? "A" : "ahk_id " wParam
ToolTip % A++ "`n`n" Process, 15, 15
}
}
Exit:
DllCall("DeregisterShellHookWindow", "UInt", A_ScriptHwnd)
ExitApp
Не понял, вы же его использовали в этом скрипте.
Он работает в AHK без написания dll только для событий клавиатуры и мыши.
]]>OnMessage отслеживает только сообщения, посланные своему приложению.
Как раз, сам только понял 
правильно отслеживать с помощью хука SetWindowsHookEx, но в AHK он не сработает.
Не понял, вы же его использовали в этом скрипте.
Примерно так:
Спасибо! Так и знал, что именно вы поможете
#Persistent
EVENT_OBJECT_FOCUS := 0x8005
global WS_CHILD := 0x40000000, hPrevActive
WinGet, hPrevActive,, A
HWINEVENTHOOK := SetWinEventHook(EVENT_OBJECT_FOCUS, EVENT_OBJECT_FOCUS, 0
, RegisterCallback("WatchingActivateWindow", "F"), 0, 0, 0)
OnExit, Exit
return
Exit:
DllCall("UnhookWinEvent", Ptr, HWINEVENTHOOK)
ExitApp
WatchingActivateWindow(hWinEventHook, event, hwnd)
{
h := hwnd
While !toplevel
{
WinGet, Style, Style, ahk_id %h%
if (Style & WS_CHILD)
h := DllCall("GetParent", Ptr, h, Ptr)
else
toplevel := 1
}
if (h != hPrevActive)
ToolTip % hPrevActive := h ; хэндл активного в данный момент окна
}
SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags)
{
return DllCall("SetWinEventHook" , UInt, eventMin, UInt, eventMax
, Ptr, hmodWinEventProc, Ptr, lpfnWinEventProc
, UInt, idProcess, UInt, idThread
, UInt, dwFlags, Ptr)
}