TWebBrowser控件彻底防止弹出新窗口

最近在编写一个使用到TWebBrowser控件的软件，浏览网页时经常会弹出各种各样的窗口，尤其是广告，让人烦不胜烦，参考网上的一些资料，针对不同的弹窗方式采取相应的措施就能禁止各种弹窗。

1. 将TWebBrowser控件的Silent属性设置为True可以防止弹出“语法错误”的窗口。

2. 编写TWebBrowser控件的OnNewWindow2事件响应代码可以阻止<a href='url' target='_blank'>方式的新窗口

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
  Cancel := True;
end;

3. 编写TWebBrowser控件的OnNavigateComplete2事件响应代码可以阻止Javascript脚本弹出的新窗口

uses MsHTML;
procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
 
((aSender as TWebBrowser).Document as
IHTMLDocument2).parentWindow.execScript('window.open=function(){return
true}','JavaScript'); //禁止使用open方式弹出的窗口
 
((aSender as TWebBrowser).Document as
IHTMLDocument2).parentWindow.execScript('window.alert=function(){return
true}','JavaScript'); //禁止使用alert方式弹出的对话框
 
((aSender as TWebBrowser).Document as
IHTMLDocument2).parentWindow.execScript('window.showModalDialog=function(){return
true}','JavaScript'); //禁止使用showModalDialog方式弹出的窗口
 
((aSender as TWebBrowser).Document as
IHTMLDocument2).parentWindow.execScript('window.showModelessDialog=function(){return
true}','JavaScript'); //禁止使用showModelessDialog方式弹出的对话框
end;