Как да стигнем дръжката на прозореца, който има вход фокуса

Как да стигнем дръжката на прозореца, който е във фокуса?

GetFocus - просто ми процес. (
GetForegroundWindow - връща основния прозорец.
Ако това поле поле за въвеждане в който курсорът е - как да се справя?
Имам нужда от нещо подобно GetFocus, но и за цялата система.

Аз може би не съм много ясно попита.
Аз трябва да отида на hwnd на прозореца, който е във фокуса на клавиатурата.
GetWindowFromPoint - как може да ми помогне?

опитвам
AttachThreadInput, тогава GetFocus


функция GetFocusedWindow: HWND;
Var
CurrThID, ThID: DWORD;
започвам
резултат: = GetForegroundWindow;
ако в резултат <> 0 след това
започвам
CurrThID: = GetCurrentThreadId;
ThID: = GetWindowThreadProcessId (резултат // дръжка за прозорец
нула // идентификатор процес
);
резултат: = 0;
ако AttachThreadInput (CurrThID, ThID, True), след това
започвам
резултат: = GetFocus;
AttachThreadInput (CurrThID, ThID, False);
приключи;
приключи;
приключи;

Благодаря ви много, troits, аз вече направих това.
В общи линии, а след това, тъй като има 98 F-I: GetGUIThreadInfo
С нея е по-лесно.
Въпреки това, докато тя не работи :))))
Хадли или наляво, или дори 0 / при липса на данни. Аз копаят.
Konkektno си пиано, аз винаги се върне 0. (((

Windows XP, Delphi 5

> Deus
Е, така че винаги;)
Съгласен съм, не се вземат предвид случаите, когато активния прозорец в обажда Тема-е (Тогава AttachThreadInput връща False)

Тук е коригирана версия. Имам всичко работи (Win2k Delphi 5.0)

функция GetFocusedWindow: HWND;
Var
CurrThID, ThID: DWORD;
започвам
резултат: = GetForegroundWindow;
ако в резултат <> 0 след това
започвам
CurrThID: = GetCurrentThreadId;
ThID: = GetWindowThreadProcessId (резултат // дръжка за прозорец
нула // идентификатор процес
);
резултат: = 0;
ако CurrThID = ThId тогава
резултат: = GetFocus
още
започвам
ако AttachThreadInput (CurrThID, ThID, True), след това
започвам
резултат: = GetFocus;
AttachThreadInput (CurrThID, ThID, False);
приключи;
приключи;
приключи;
приключи;

Да, точно така, тя работи!
Благодаря ви много!

Памет: 0.72 MB
Време: 0,027 гр