获得一个网页的所有的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，哈哈  是不是很容易啊