如何取得焦点窗口的句柄(100分)

&nbsp;我编写了一个汉字输入程序，却只能将汉字送入“记事本”之类的编辑框<br>而不能送入 Word 或 “写字板”，请问，我该如何办？<br>&nbsp; 我的送字过程是：<br>FProcedure SendMyString(Const S:String);<br>var h:HWND; i:word;<br>begin<br>&nbsp; h:=GetWindow(GetForegroundWindow,GW_CHILD);<br>&nbsp; For i := 1 to Length(s) do<br>&nbsp; &nbsp; SendMessage(h, WM_CHAR, Word(s), 0);<br>end;<br>&nbsp;

建议用enumchildwindow试试取得word的子窗体

使用GetActiveWindow获取焦点窗口的句柄

GetActiveWindow