阻止广告弹出窗口并显示URL

作者: 傻猫分类: 搞软件发布时间: 04-06 14:46 浏览次数: 3798 无留言

procedure TFrm_main.web1NewWindow3(ASender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool; dwFlags: Cardinal; const bstrUrlContext,
bstrUrl: WideString);
begin
Cancel:=True;
showmessage(bstrUrl); //显示弹出窗口的URL
end;

两条语解决大问题，可以阻止WebBrower弹出新窗口，显示新窗口的URL地址，获取到弹出窗口的URL地址后，就可以在当前窗口里浏览弹窗的网址了。