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

  • 主题发起人 主题发起人 oisiv
  • 开始时间 开始时间
O

oisiv

Unregistered / Unconfirmed
GUEST, unregistred user!
我使用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可访问网站的限制。
这个问题已解决,不知能否终止该问题。
 
后退
顶部