取连接的问题好象有很多方法。
可以这样的。我是试了一下是可以的。(需要加上mshtml单元的)
var
Htmldoc : IHtmlDocument2;
AllLinks : IhtmlElementCollection;
Len,I : Integer;
HtmlItem : Olevariant;
begin
HtmlDoc := Webbrowser1.document as Ihtmldocument2;
all := HtmlDoc.get_links;
Len := AllLinks.length ;
For I :=0 To Len-1 do
begin
HtmlItem := all.item(i,emptyparam);
Memo1.Lines.Add(Htmlitem.href);
end;
end;