WebBrowser中屏蔽弹出窗口

WebBrowser中有这样一个事件NewWindow2，其中有两个参数：
var ppDisp: IDispatch; var Cancel: WordBool
第一个参数是变参，用于指定新窗口
第二个参数也是变参，用于控制是否可以触发NewWindow2事件,当我们浏览一个页面的时候，如果有弹出窗口的话，我们就可以用第一个参数，把弹出的窗口，截取到另一个WebBrowser里面了。
ppDisp:=WebBrowser_NewWin(截取弹出窗口).Application;
也可以不截取，不让触发，Cancel:=True就可以了