DocumentComplete事件的URL就是你要的地址啦 procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin showmessage(URL) end;
获取函数