如何按要求关闭IE浏览器？

Question

我的要求是：读取IE地址栏信息，与数据库中的信息比较，如果数据库中没有此地址信息，就将IE浏览器关闭（不是全部关闭，只关闭不符合的）。我已经可以读出地址栏信息，只想知道如何关闭IE。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  tmp:olevariant;
begin
  tmp:=getactiveoleobject('InternetExplorer.Application');
  if tmp.LocationURL='your url' then
  tmp.quit;
end;

Answer 2

tmp:=getactiveoleobject('InternetExplorer.Application');这句报错