如何屏蔽webbrowser控件打开页面时自动获取输入焦点(300分)

我在程序中使用了webbrowser控件，定时打开一个网页，运行程序，然后切换到其他的程序上，但是webbrowser控件在打开网页的时候我的程序的标题栏总是会闪，而且有时输入焦点还自动切换到我的程序上了。怎样才能屏蔽webbrowser这种自动获取焦点的功能？
还有一个问题，我设置webbrowser控件的silent属性为True，而且OnNewWindow2事件也改成这样：
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel := true;
end;

但是我打开一些有弹窗的页面时还是有窗口弹出来，有些又没有。要怎么可以彻底屏蔽弹窗呢？

各位大侠帮帮忙。

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
WebBrowser1.RegisterAsBrowser := True;
ppDisp := WebBrowser1.ControlInterface;
end;

我没有获得焦点的问题，是不是JAVASCRIPT的原因？你屏蔽脚本试试。

to 寒锋笑:
如何屏蔽脚本啊？

1. 定时打个网页时，自己的程序暂时Hide;
2. 有的弹窗的页面不是标准的IE页面,所以WebBrowser1NewWindow2拦截布道!