好久没来了，有1000多分，怎么给大家呀？来看看啦

Question

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);here the URL is your answer.

Answer 1

大家不要up来up去的，给点实质的东西好不好？
呵呵

Answer 2

好像
用comobjgetactiveoleobject('internetexplorer.application')获取ie对象实例locationurl方法将返回url有点局限性就是，只能针对最后一个IE窗口，对于多个窗口或多页浏览的外挂程序无效好像用shellwindows可以每句出所有的ie创口，没弄过，你慢慢玩吧。嘿嘿嘿对ie没有感情的说