http://www.cnblogs.com/long6/archive/2012/02/22/2363279.html

获得一个网页的所有的URL（WebBrowser）

复制代码
//记得要引用MSHTML
procedure TForm1.Button6Click(Sender: TObject);
var
  Doc: IHTMLDocument2;
  Len: Integer;
  item: OleVariant;
  all: IHTMLElementCollection;
  I: Integer;
begin
  Doc :=  WebBrowser1.Document as  IHTMLDocument2;
  all := Doc.links;
  Len := all.length;
  for I :=  0 to Len -1 do
  begin
    item := all.item(I, EmptyParam);
    Memo1.Lines.Add(item.href) ;
  end;
end;
/取得一个页面的所有的URL，哈哈  是不是很容易啊