高手！高分！delphi 中如何删除iis中的虚拟目录

高手！高分！delphi   中如何删除iis中的虚拟目录  
  不够再加 问题点数：100、回复次数：4Top

1 楼jinji（我是学物理的）回复于 2003-06-01 05:44:40 得分 0

和和  
  太早了没有人回答我啊  
   
  Top

2 楼hslinux（幻世龙）回复于 2003-06-01 06:40:35 得分 10

呵呵，偶不懂，up！Top

3 楼outer2000（天外流星）回复于 2003-06-01 06:41:58 得分 90

部分原创；  
  1，　　先引入类型库(Project|Import   Type   Library)adsiis.dll、iisext.dll  
  2，procedure   TForm1.Button2Click(Sender:   TObject);  
  var  
  WebSite,WebServer,WebRoot:   Variant;  
  begin  
  WebSite   :=   CreateOleObject('IISNamespace');  
  WebSite   :=   WebSite.GetObject('IIsWebService',   'localhost/w3svc');  
  WebServer   :=   WebSite.GetObject('IIsWebServer',   '1');  
  WebRoot   :=   WebServer.GetObject('IIsWebVirtualDir',   'Root');  
  WebRoot.delete('IIsWebVirtualDir',   'VariantTest');  
   
  end;Top

4 楼outer2000（天外流星）回复于 2003-06-01 06:42:58 得分 0

来自超级猛料，生成VIR；  
  procedure   TForm2.BitBtn1Click(Sender:   TObject);  
   
  var  
   
  　WebSite,   WebServer,   WebRoot,   VDir:   Variant;  
   
  begin  
   
  　WebSite   :=   CreateOleObject('IISNamespace');  
   
  　WebSite   :=   WebSite.GetObject('IIsWebService',   'localhost/w3svc');  
   
  　WebServer   :=   WebSite.GetObject('IIsWebServer',   '1');  
   
  　WebRoot   :=   WebServer.GetObject('IIsWebVirtualDir',   'Root');  
   
  　VDir   :=   WebRoot.Create('IIsWebVirtualDir',   'VariantTest');  
   
  　VDir.AccessRead   :=   True;  
   
  　VDir.Path   :=   'C:\Test';  
   
  　VDir.SetInfo;  
   
  end;  
  其实可以写PAS专门操作ISS的；Top

相关问题

• webroot
• vdir
• website
• webserver
• getobject
• iiswebvirtualdir

• 帖主：jinji
• hslinux
• outer2000

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载