引言: 我在一些網站說是用正規法，但我有不會。 痲煩幫忙。

uses MsHtml;    procedure TForm2.btnNavigateClick(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.google.com.tw');
end;    procedure TForm2.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  ShowMessage('Webbroswer document complete');
end;    procedure TForm2.btnGetLinksClick(Sender: TObject);
var
  i: integer;
  htmlDoc: IHTMLDocument2;
  allLinks: IHTMLElementCollection;
  Link: IHTMLElement;
  url: String;
begin
  htmlDoc := WebBrowser1.Document as IHTMLDocument2;
  allLinks := htmlDoc.Links;
  for i := 0 to allLinks.Length -1 do
  begin
    Link := allLinks.Item(i, '') as IHTMLElement;
    Memo.Lines.Add(IntToStr(i) + ': ' + Link.toString);
  end;
end;