BHO的问题：我只想对IE起作用，但资源管理器及文件夹等也受到影响(100分)

我使用BHO限制可以登陆的网址。使用以下代码，
procedure DoBeforeNavigate2(const pDisp: IDispatch
var URL: OleVariant
var Flags: OleVariant
var TargetFrameName: OleVariant
var PostData: OleVariant
var Headers: OleVariant
var Cancel: WordBool);
begin
if URL<>'http://www.google.com/'then begin
Showmessage('你不可以浏览其它站点');
Cancel:=True;
URL:='http://www.google.com/';
(pDisp as IWebbrowser2).Navigate2(URL,Flags,TargetFrameName,PostData,Headers);
end;
end;
的确在IE中可以起到作用，但当想打开我的电脑或是文件夹时，却弹出消息框“你不可以浏览其它站点”，不能
打开我的电脑或文件夹。
请问怎样处理。

关注

这个问题我已经解决，在最开始再加一个判断
if pos('http',URL)<= 0 then
begin
````````
end;
这样即可过滤掉对资源管理器的影响。

好象IE&amp;Delphi网站的IEHelper也能做到这个功能。

我使用的就是从IE&amp;Delphi网站上得到的iehelper，不过他原来的程序只是一个框架，
具体的功能需要自己添加。我在上面写的代码就是增加对IE可访问网站的限制。
这个问题已解决，不知能否终止该问题。