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

解决方案 »

  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;
      

  2.   

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