怎样在程序中控制切换到某个应用程序窗口

Question

怎样在程序中控制切换到某个应用程序窗口注：我用SendMessage(h, WM_SETFOCUS,0, 0)或者SendMessage(h, WM_ACTIVATE,0, 0)
都没用.h为一窗口的句柄 

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
   HWndCalc: HWnd;
begin
HWndCalc:= FindWindow(nil, '托盘控件');
if HWndCalc <> 0 then
begin
   SendMessage(HWndCalc,WM_SYSCOMMAND,SC_RESTORE,0);
end;
end;

Answer 2

问题解决了，
setforegroundwindow(vHandle)
用这个就可以切换了，
SendMessage和ShowWindow实现最大化，最小化，还原这类的操作。