怎么在twebbrowser中屏蔽掉javascript弹出的框框！

[aton]

访问有的页面会弹出一些框框，如欢迎访问之类的，
怎么可以把它去掉，用twebbrowser.silent:=true没有用。

[dana]

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
if ....='' then //在这里捕获窗口的名称
cancel:=true;

end;

[Raffaello]

怎么样捕获窗口的名字?
比如这个页面用ie打开,title显示通知
请给详细一点的代码,谢谢

[长弓落日]

看看！