我的一段代码,在隐藏窗口并显示窗口后就不能正常发送消息了,谁知道是什么原因? ( 积分: 50 )

procedure TForm1.Timer1Timer(Sender: TObject);<br>var<br>lp:Tpoint;<br>curwnd,sendwnd,wnd:HWND;<br>FormThreadID,CWndThreadIDWORD;<br>begin &nbsp;<br> &nbsp;curWnd:=GetForegroundWindow();<br> &nbsp;FormThreadID:=GetCurrentThreadId();<br> &nbsp;CWndThreadID:=GetWindowThreadProcessId(curWnd, Nil);<br> &nbsp;AttachThreadInput(CWndThreadID,FormThreadID,true);<br> &nbsp;sendWnd:=GetFocus();<br> &nbsp;AttachThreadInput(CWndThreadID,FormThreadID,false);<br> &nbsp;postmessage(sendwnd,WM_CHAR,79,0);<br>end;<br>这段代码在窗口没有隐藏前是正常发送消息到正在活动的窗口的,隐藏再显示后就不能发送了,谁知道是什么原因啊

procedure TForm1.Timer1Timer(Sender: TObject);<br>var<br>lp:Tpoint;<br>curwnd,sendwnd,wnd:HWND;<br>FormThreadID,CWndThreadIDWORD;<br>begin &nbsp;<br> &nbsp;curWnd:=GetForegroundWindow();<br> &nbsp;FormThreadID:=GetCurrentThreadId();<br> &nbsp;CWndThreadID:=GetWindowThreadProcessId(curWnd, Nil);<br> &nbsp;AttachThreadInput(CWndThreadID,FormThreadID,true);<br> &nbsp;sendWnd:=GetFocus();<br> &nbsp;AttachThreadInput(CWndThreadID,FormThreadID,false);<br> &nbsp;postmessage(sendwnd,WM_CHAR,79,0);<br>end;<br>这段代码在窗口没有隐藏前是正常发送消息到正在活动的窗口的,隐藏再显示后就不能发送了,谁知道是什么原因啊