如何从打开的IE页面获取链接

Question

如何控制已打开的IE页面，我只有句柄？

以下代码从网页中检索链接。我想做同样的事，但我只有IE的句柄，因为页面已经打开。

我该怎么做？

Var
  I, n : Integer;
  IEApp: OLEVariant;
begin
  if(VarIsEmpty(IEApp))then
  begin
    IEApp := CreateOleObject('InternetExplorer.Application');
    IEApp.Visible := true;
  end;
  IEApp.Navigate('www.google.com');
  while Cardinal(IEApp.readyState) <> 4 do sleep(1000);
  n := Cardinal(IEApp.Document.links.length);
  for i := 0 to n - 1 do
    Memo1.Lines.Add(string(IEApp.Document.links.item(i).href));