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

我如何控制一个已经打开的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));

---

我不知道你所说的IE中的句柄是什么意思，但是要列出方法文档给出的第一个IE实例中的所有链接，你可以这样写。谢谢TLama。它是有效的。@TLama：你为什么不把那个代码粘贴到这里作为答案？@Wouter，因为我觉得IEXPLORE.EXE的检查很奇怪。我从社区添加中获得了灵感，但很难说这是否是获得IE实例的正确方法。它的效果并不总是最好的。但是请随意把它放到帖子上，我甚至可以从这里删除我的评论；请告诉我。