浏览器IE 与 自己的一个 exe 应用程序的通信

Question

操作过程：
在 IE 浏览器中点击某个图片，实现 IE 浏览器 与exe 应用程序 的一起退出。此
IE 浏览器 不是在 嵌入在 form 中的， 而是单独存在的。
procedure TForm1.Button2Click(Sender: TObject);
begin
  WebBrowser1.Navigate(WideString('http://localhost/index.html'));
end;procedure TForm1.Button1Click(Sender: TObject);
var
  i: Word;
  Document: IHtmlDocument2;
  str: string;
begin
  // Schleife über alle Bilder im Webbrowser
  for i := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
  begin
    Document := WebBrowser1.Document as IHtmlDocument2;
    // URL auslesen
    Str := (Document.Images.Item(i, 0) as IHTMLImgElement).Href;
    // Dateiname des Bildes überprüfen
    if Pos('in_end.gif', str) <> 0 then
    begin       ShowMessage('IE没有运行');
    end;
  end;
end;
我用上面的方法，IE 是嵌入在 form 中，如果改成一个单独的，最好把代码给全，我是个新手。