如何用程序来实现IIS虚拟目录的增删改?

Question

怎样没人，这个很难吗？================================================================我越来越喜欢DELPHI了!================================================================

Answer 1

其实iis的虚拟目录都记载在注册表里面,里可以先用手工添加,修改虚拟目录,看看注册表有什么变化,找出规律来以后,再用编程的方法对注册表进行操作

Answer 2

我不想读写注册表。
　　和共享目录一样，我相信，肯定可以用程序读写哪个动态连接库（.dll）中的一个函数来实现。
================================================================我越来越喜欢DELPHI了!================================================================

Answer 3

转帖：
-------------------
procedure TForm3.BitBtn4Click(Sender: TObject); 
var 
  Disp: IDispatch; 
begin 
  Disp := IISNamespace1.GetObject('IIsWebService', 'localhost/w3svc'); 
  Disp := (Disp as IADsContainer).GetObject('IIsWebServer', '1'); 
  Disp := (Disp as IADsContainer).GetObject('IIsWebVirtualDir', 'Root'); 
  Disp := (Disp as IADsContainer).Create('IIsWebVirtualDir', 'DelphiADSITest'); 
  (Disp as IADs).Put('AccessRead', 'True'); 
  (Disp as IADs).Put('Path', 'c:\ADSITest'); 
  (Disp as IADs).SetInfo; 
end; 
 
2、使用Variant(就是类似VB和ASP的方法) 
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; 
 
详细内容请看 
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=468148