デルファイは、すべてのURLを返します
USER MSHTML
手順TfrmWebEmail.btn5Click（送信者：TObjectを）。
VAR
ドク：IHTMLDocument2。
レン：整数;
アイテム：OleVariant;
すべて：IHTMLElementCollection。
I：整数;
開始
IHTMLDocument2として= ebdwbWeb.Document;：ドキュメントを
すべて：= Doc.links。
レン：= all.length。
私のために：= 0レン-1ん
始まる
項目を：= all.item（I、EmptyParam）。
mm1.Lines.Add（item.href）。
終わり;
0