var
  str:string;
begin
  str:=ExtractFilePath(Application.ExeName)+test.html ; //程序目录下的test.html页
  webbrowser1.Navigate(str);
End;

procedure TFmain.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if pos('good',URL)>0  then    //如果测试到界面发出的链接中有good,那个链接被点了
    begin
    showmessage('ok');    //则显示一个消息
    cancel:=true;     //取消继续浏览网页,停在本页
    end;
end;