在页面写下面的Script
<script language="VBScript">
'Great thanks to Vladimir Romanov(Author of ReGet Pro)
On Error Resume Next
set CEMICatch=CreateObject("CemiWebLink.IEAddLinks")
if err<>0 then
MsgBox("Winamp Web Player Plugin not properly installed!"+ vbCrLf+"Please install Winamp Web Player Plugin again")
else
set links = external.menuArguments.document.links
ReDim params(links.length*2)
params(0)=external.menuArguments.document.Url
for i = 0 to links.length-1
params(i*2+1)=links(i).href
params(i*2+2)=links(i).innerText
next
CEMICatch.AddLinkList params
end if
</script>
然后在Delphi中写一个下面的过程接受由Script传来的数组
procedure TIEAddLinks.AddLinkList(LinkList: OleVariant);
其中可以把传来的OleVariant当作一个普通的数组来访问, 我试过, 可以的.
