[急切求助]如何获取火狐浏览器输入的网址？

Question

现在可以获取普通IE浏览器中输入的网址，
但是火狐浏览器中输入的网址总是获取不到。是否有相关接口可以使用，
请熟悉的朋友帮忙介绍下，谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
dde : TDdeClientConv;
bRet: Boolean;
begin
  dde := TDdeClientConv.Create(self);
  try
  bRet:= dde.SetLink('firefox','WWW_GetWindowInfo');
  if bRet then
  Edit1.Text := dde.RequestData('0xFFFFFFFF, sURL, sTitle')
  else  ShowMessage('没有firefox');
  finally
  dde.free;
  end;
end;
测试可以。

Answer 2

谢谢楼上各位朋友的回复
之前用VC++来做，想通过IAccessible接口的AccessibleObjectFromWindow接口，
获取IHTMLDocument2*接口，总是有问题。
MSAA开发包中的DEMO程序可以获取到火狐浏览器中输入的网址，但是DEMO程序中代码比较复杂，
用到很多消息和回调函数，所以想找个简单的方法来实现。这个是在别的版块发的求助帖子(急切求助)MSAA无法获取火狐浏览器IHTMLDocument2*接口(在线等)
http://topic.csdn.net/u/20101217/01/c4dc0d70-38b0-428d-92b5-32e1329c6185.html?67920

Answer 3

------------------
通过DDE进程通信的方式,来实现很简单,谢谢啦...