请教在delphi中如何切换到另一程序，窗口焦点同时切换到另一程序？ ( 积分: 100 )

我的代码如下，但发现有些情况下不能将另一程序激活，如将下代码放入timer<br>事件，运行后将焦点切换到桌面，只是在任务栏闪动，不能最大化另一程序。<br>请大家帮忙解决<br><br>var<br>ta:HWND;<br>begin<br>ta:=FindWindow(nil,'Test B');<br>if ta&lt;&gt;0 then<br> &nbsp;begin<br> &nbsp;//showwindow(ta,sw_normal);<br> &nbsp;//setactivewindow(ta);<br> &nbsp;SetForegroundWindow(ta);<br> &nbsp;end;

我的代码如下，但发现有些情况下不能将另一程序激活，如将下代码放入timer<br>事件，运行后将焦点切换到桌面，只是在任务栏闪动，不能最大化另一程序。<br>请大家帮忙解决<br><br>var<br>ta:HWND;<br>begin<br>ta:=FindWindow(nil,'Test B');<br>if ta&lt;&gt;0 then<br> &nbsp;begin<br> &nbsp;//showwindow(ta,sw_normal);<br> &nbsp;//setactivewindow(ta);<br> &nbsp;SetForegroundWindow(ta);<br> &nbsp;end;