Delphi Active Javascript

Question

Delphi 如何与javascript交互？小弟用Delphi做了一个ocx，现在有一个这样的需求，点击一个按钮，要把网页关闭，一直想不到合理的解决办法，
现在就想调用网页上的javascript直接把网页关闭。哪位大哥有好的解决办法，给小弟个解决办法，感激不尽，最好能详细点。
,如果有例子的话，也可以往这个邮箱里发

Answer 1

function Close() 
{ 
 var ua=navigator.userAgent 
 var ie=navigator.appName=="Microsoft Internet Explorer"?true:false 
 if(ie) 
 { 
      var IEversion=parseFloat(ua.substring(ua.indexOf("MSIE ")+5,ua.indexOf(";",ua.indexOf("MSIE ")))) 
  if(IEversion< 5.5) 
  { 
   var str  = '<object id=noTipClose classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">' 
       str += '<param name="Command" value="Close"></object>'; 
       document.body.insertAdjacentHTML("beforeEnd", str); 
       document.all.noTipClose.Click(); 
  } 
      else 
  { 
       window.opener =null; 
       window.close(); 
      } 
   } 
 else 
 { 
  window.close() 
   } 
}