初学者求助

初学者求助 VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061222145535187.html
<script   language   =   "JavaScript">  
   
  var   NXIECatcher   =   new   ActiveXObject("NXIEHelper.NXIEAddURL");  
   
  if   (NXIECatcher)  
   
          NXIECatcher.AddTask("http://xi/",   "http://www/site/",   "you",   "e:\\Folder",   "",   "qwe",   "",   0,   "torrent",   3);  
   
  </script>  
   
  上面的函数调用,在delphi中如何调用?望大侠给个代码.

 
   
  帮个忙呀！！！！！！！！！

在Delphi中ActiveX对象一般是转换为组件后直接设置属性的。

//try  
  uses   ComObj;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      NXIECatcher:   OleVariant;  
  begin  
      NXIECatcher   :=   CreateOleObject('NXIEHelper.NXIEAddURL');  
   
      if   not   VarIsEmpty(NXIECatcher)   then  
          NXIECatcher.AddTask('http://xi/',   'http://www/site/',   'you',   'e:\\Folder',  
              '',   'qwe',   '',   0,   'torrent',   3);  
  end;

\\   ->   \  
  修正一下  
   
    'e:\Folder'