响应WebBrowser的OnNewWindow2事件
procedure Tfor.Web1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
cancel:=true;//设置。OnNewWindow2事件
end;
有个简单但不很好的方法,因为广告窗口一般都是通过执行活动脚本弹出的,所以
只要把IE安全设置中的活动脚本的执行禁掉就行了。
r.RootKey := HKEY_CURRENT_USER;
if r.OpenKey('/SOFTWARE/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/3',False)
then r.WriteInteger('1400',3); //禁止活动脚本