BorlandTalk.com

Eugene V. Goldberg · Guest

I am having hard time writing this BHO thing.

I need to change URL in DoBeforeNavigate2. This code works fine:

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.yandex.ru/' then begin
Showmessage('...');
Cancel:=True;
URL:='http://www.yandex.ru';
(pDisp as
IWebbrowser2).Navigate2(URL,Flags,TargetFrameName,PostData,Headers);
end;
end;

But if i comment out IF and have only this

Cancel:=True;
URL:='http://www.yandex.ru';
(pDisp as
IWebbrowser2).Navigate2(URL,Flags,TargetFrameName,PostData,Headers);

it doesnt work at all.

Does anybody have idea whats going on?

Thanx alot,
Eugene.