小弟第一次用　WebBrowser　控件，问一个简单问题，现在没分了，等有分一定双手奉上。(0分)

我在　WebBrowser　中打开了一个网页，请问如何获得该网页所有的超链接，并激活这些超链接。　急啊！！！！谢谢各位好心的大哥大姐。！！！！
　　　

var
doc: IHTMLDocument2;
all: IHTMLElementCollection;
item: OleVariant;
len, i: integer;
begin
doc := wb.Document as IHTMLDocument2;
all := doc.Get_links; //doc.Links亦可
len := all.length;
for i := 0 to len - 1 do
begin
item := all.item(i, varempty); //EmpryParam亦可
listitem := OpenAllLinkForm.ListView_link.Items.Add;
listitem.Caption := item.href;
listitem.SubItems.Add(item.innertext);
end;
end; end;

谢谢andy263！！！！你是不是我同学阿波？ 请问IHTMLDocument2 ,IHTMLElementCollection分别在那个单元文件定义的？D7中有这些文件吗？

IHTMLDocument2 在
MSHTML.pas 中（borland/delphi5/source/internet/mshtml.pas）

请问如何用程序在另一个WebBrowser中打开　某一超链接呢？可以告诉我吗？
　　今天是平安夜了，祝各位开开心心，平平安安，愿天下有情人终成眷属!!!

ok