桌面上已经大开了个IE浏览器 
我点击BUTTON1 实现 IE 最小化  
我点击BUTTON2 实现 IE 还原
我点击BUTTON3 实现 IE 关闭  

解决方案 »

  1.   

    参考以下,善用搜索引擎
    http://wenku.baidu.com/view/e3b39c956bec0975f465e2f7.html
      

  2.   

    var h:THandle 
    h:=Findwindow(IEFrame,nil).//找IE窗口句柄 
    showwindow(h,sw_maximize).//控制窗口的api函数,对窗口句柄操作取
    ShowWindow(Application.Handle, SW_HIDE);消息实现窗口最小化,最大化,关闭(delphi)
     var hwnd: hwnd;//句柄
    PostMessage(hwnd,WM_SYSCOMMAND, SC_MINIMIZE,0); //最小化很乱,反正就是先找IE句柄,然后发消息。
    给你瞎倒腾了点代码,很乱,不好意思
    快下班了,很兴奋啊。
      

  3.   


    var
      Form1: TForm1;
      h:HWND;
      ProcessHandle, Pid: longword;
      D:DWORD;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
    begin
    h:=FindWindow('IEFrame',nil);
    showmessage(IntToStr(h));
    end;procedure TForm1.Btn2Click(Sender: TObject); //还原
    begin
      ShowWindow(h, SW_RESTORE);
    end;procedure TForm1.Btn1Click(Sender: TObject);    //最小化
    begin
      ShowWindow(h, SW_MINIMIZE);
    end;procedure TForm1.Btn3Click(Sender: TObject);   //关闭
    begin
      GetWindowThreadProcessId(h, @Pid);
      ProcessHandle := OpenProcess(Process_All_Access, true, Pid);
      sleep(600);
      GetExitCodeProcess(ProcessHandle, D);
      TerminateProcess(ProcessHandle, D);
    end;
    楼主试试我的代码