怎样才能关掉IE浏览器????谢谢!!procedure TForm1.Button1Click(Sender: TObject);
var
HWndIE : HWnd;
begin
HWndIE:=FindWindow(nil, 'iexplore'); 
if HWndIE <> 0 then
SendMessage(HWndIE, WM_CLOSE, 0, 0);
end;
总是不能关闭IE!答者有分。

解决方案 »

  1.   

    因为第二个参数是标题,不是iexplore,所以找不到,当然关不掉
      

  2.   

    1:你没找到正确的ie窗口
    建议用类名,好像是IEFrame,可以自己去查,变革程序自己查也很简单
    2:用postmessage
    PostMessage(HWndIE, WM_CLOSE, 0, 0);
      

  3.   

    //uses shellapi
    var
            wnd:HWnd;
    begin
            wnd:=findwindow(PChar('IEFRAME'),nil);
            if wnd>0 then
            begin
                    showmessage('found');
                    postmessage(wnd,WM_CLOSE,0,0);
            end
            else
                    showmessage('no found');
    end;