关于IE问题，敬请解答。

怎样才能关掉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！答者有分。 问题点数：30、回复次数：5Top

1 楼viaboy（平凡）回复于 2003-08-03 08:38:36 得分 1

帮你顶一下。Top

2 楼ljmanage（过客）回复于 2003-08-03 08:41:36 得分 2

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

3 楼bluenightsky（）回复于 2003-08-03 10:00:20 得分 9

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

4 楼yang6130（柳轻风）回复于 2003-08-03 14:47:20 得分 18

//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;Top

5 楼cyxxde（哇哈哈）回复于 2003-08-03 21:53:25 得分 0

可以了，谢谢谢谢！！！！！！！！Top

相关问题

• ie
• hwndie
• wnd
• wm
• close

• 帖主：cyxxde
• viaboy
• ljmanage
• bluenightsky
• yang6130

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载