метод1:
- Код: Выделить всё
Dim MyID As Long, StrangerID As Long, lRet As Long
lRet = GetForegroundWindow
StrangerID = GetWindowThreadProcessId(lRet, 0)
MyID = GetCurrentThreadId
lRet = AttachThreadInput(StrangerID, MyID, True)
If lRet Then
'успешно
lRet = GetFocus 'хендл текущего окна(поля)
lRet= GetWindowThreadProcessId(lRet, 0)
End If
метод2:
GetForegroundWindow -> GetWindowThreadProcessId -> GetGUIThreadInfo -> GUITHREADINFO hwndFocus -> GetWindowThreadProcessId(hwndFocus, 0)
рылся в поиске, встречал такие фразы вроде:
AttachThreadInput не всегда срабатывает...