//关闭所有弹出窗口 procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); begin Cancel:=True; end;
WebBrowser1NewWindow2不管用----------------------------------- http://blog.csdn.net/CathyEagle/archive/2004/09/06/95964.aspx处理新窗口实在是很麻烦的一件事，不知道微软为什么在新版本的OnNewWindow2事件中去掉了URL这样的参数，而且OnNewWindow2事件不能完全捕捉到所有的新窗口打开。但如果安装了Windows XP SP2的话，好处又回来了。Windows XP SP2对Internet Explorer 6作了升级，并且提供了一个新的事件OnNewWindow3，它在OnNewWindow2事件之前发生，也包含了让我们能够加以过滤处理的新窗口的URL等参数，再加上INewWindowManager接口，就是实现Windows XP SP2中过滤广告窗口功能的基础。
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel:=True;
end;
http://blog.csdn.net/CathyEagle/archive/2004/09/06/95964.aspx处理新窗口实在是很麻烦的一件事，不知道微软为什么在新版本的OnNewWindow2事件中去掉了URL这样的参数，而且OnNewWindow2事件不能完全捕捉到所有的新窗口打开。但如果安装了Windows XP SP2的话，好处又回来了。Windows XP SP2对Internet Explorer 6作了升级，并且提供了一个新的事件OnNewWindow3，它在OnNewWindow2事件之前发生，也包含了让我们能够加以过滤处理的新窗口的URL等参数，再加上INewWindowManager接口，就是实现Windows XP SP2中过滤广告窗口功能的基础。