如何在程序中得到一网页中的所有URL，谁有原码或相关控件

Question

找了老半天才找到，给分吧！
增加uses mshtml
var 
   Document     : IHtmlDocument2; 
   Link        : IHTMLElement; 
   StrLinks     : string; 
   i            : integer; begin 
   Document := WebBrowser1.Document as IHTMlDocument2; 
   for i := 0 to Document.Links.Length - 1 do 
   begin 
        Link := Document.Links.Item(i, 0) as IHTMLElement; 
        StrLinks := Link.ToString + #13#10; 
        ShowMessage(StrLinks); 
   end; 
end;

Answer 1

我是不是一定要在程序中放个WebBrowser，能不能不用放WebBrowser控件

Answer 2

不用控件，难道你要通过socket给server发GET请求，把网页抓回来然后自己分析其中的所有hyperlink？那活儿太细致啦。