ActiveForm怎样得到当前浏览器的地址？(100分)

就是运行ActiveForm控件的浏览器的当前地址。

请参看http://www.delphibbs.com/delphibbs/dispq.asp?lid=940110
应该能给你一些帮助
主要是通过一段vbscript返回浏览器地址

不用脚本语言也能得到。
uses
MSHTML;

var
Window: IHTMLWindow2;
begin
with ActiveFormControl.ClientSite as IServiceProvider do
QueryService(IHTMLWindow2,IID_IHTMLWindow2,Window);
Edit1.Text := Window.location.toString
// 当前浏览嚣地址
Edit2.Text := Window.location.hostname
// 当前浏览器主机

Window.Close
//关闭当前浏览器
end;

多人接受答案了。