在 ActiveX 控件中，如何获取当前的URL(200分)

我的 ActiveX 控件潜入Html中，在ActiveX控件中，如何得知当前的URL

我也想知道！

procedure TFurnaceEntry.CancelBitBtnClick(Sender: TObject);
var spIE:IOleContainer;
spDoc:IHTMLDocument2;
spWnd:IHTMLWindow2;
spHis:IOmHistory;
Value:OleVariant;
begin
Self.ActiveFormControl.ClientSite.GetContainer(spIE);
if not Assigned(spIE) then Exit;
spIE.QueryInterface(IID_IHTMLDocument2,spDoc);
if not Assigned(spDoc) then Exit;
ShowMessage(spDoc.url);
// ShowMessage(spDoc.title);
end;

谢谢！

IHTMLDocument2;
spWnd:IHTMLWindow2;
spHis:IOmHistory;
Value:OleVariant;

提示上面的数据类型找不到，需要那个单元文件？

在 ActiveX.pas 以及 MSHTML.pas 文件里能够找到