webbrowser获取当前打开页面的URL的方法--我

网上说的：

我们可以先申明一个IWEBBROWSER接口对象，然后调用该接口的LocationURL即可获取！
var
  myurl: IWebBrowser;
begin
  myurl :=  WebBrowser1.Application as IWebBrowser;
  ShowMessage(myurl.LocationURL);


还可以通过IHtmlDocument2接口获取呢:
var
  myurl : IHTMLDocument2;
begin
  myurl  := WebBrowser1.Document as IHTMLDocument2;
  ShowMessage( myurl .url);

-------------

我自己的方法,很简单（就一句话,靠）：

procedure TfrmMain.TaobaoBrowser_wbDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
  TabaoBrowserUrl_edt.Text := TaobaoBrowser_wb.LocationURL;//就是这么简单
end;