获取其他程序焦点位置句柄的方法

设置一个TIMER控件，在500ms的时间里执行

var
h,hFocus:HWND;
str:string;

h:=GetWindowThreadProcessId(GetForegroundWindow(),nil);
memo1.Lines.Add(IntToStr(h));
AttachThreadInput(h,GetCurrentThreadId,True);
hFocus:=GetFocus();
AttachThreadInput(h,GetCurrentThreadId,False);
Memo1.Lines.Add(IntToStr(hFocus));
SendMessage(hFocus,WM_SETTEXT,0,LPARAM(str));
PostMessage(hFocus,WM_KEYDOWN,VK_RETURN,0);

使用AttachThreadInput将两个进程的输入连接起来，才可以获取其他进程的焦点句柄，否则只可以获取本程序的。

GetWindowThreadProcessId用于焦点所在的控件不是窗体本身的情况。