请问在delphi中怎么控制IIS？急！

Question

我想在程序中用程序添加一个虚拟目录（比如名称为demo，路径为d:\demo），还要设置首文档(如：index.htm)请问怎么办?设置好了，删除此虚拟目录怎么办？请高手指点！

Answer 1

{***************************************************************
 * 方 法 名  : GetFTPRoot
 * 编写目的   : 获取FTP根目录
 * 作    者  : 黄仁光
 * 参    数  : 
 * 结    果  : String
 * 编写日期   :2002年10月08日
 ****************************************************************}
function GetFTPRoot():String;
var
  regFTP:TRegistry;
  rootFTP:String;
  posOfcomma:Integer;
begin
  regFTP := TRegistry.Create;
  try
    regFTP.RootKey := HKEY_LOCAL_MACHINE;
    if regFTP.OpenKey(
                      '\SYSTEM\ControlSet001\Services\MSFTPSVC\Parameters\Virtual Roots',
                      True
                     ) then
    begin
      rootFTP := regFTP.ReadString('/');
      posOfcomma := Pos(',',rootFTP);
      Result := Copy(rootFTP,1,posOfcomma-1);
    end
    else
      Result := '';
  finally
    regFTP.CloseKey;
    regFTP.Free;
  end;
end;{***************************************************************
 * 方 法 名  : GetIISRoot
 * 编写目的   : 获取IIS根目录
 * 作    者  : 黄仁光
 * 参    数  :
 * 结    果  : String
 * 编写日期   :2002年10月08日
 ****************************************************************}
function GetIISRoot():String;
var
  regIIS:TRegistry;
  rootIIS:String;
  posOfcomma:Integer;
begin
  regIIS := TRegistry.Create;
  try
    regIIS.RootKey := HKEY_LOCAL_MACHINE;
    if regIIS.OpenKey(
                      '\SOFTWARE\Microsoft\InetStp',
                      True
                     ) then
    begin
      rootIIS := regIIS.ReadString('PathWWWRoot');
      Result := rootIIS;
    end
    else
      Result := '';
  finally
    regIIS.CloseKey;
    regIIS.Free;
  end;
end;

Answer 2

那怎么样在注册表中加入一个键下面的值呢？比如键为key1,那么在该键下加入一个值（就是虚拟目录名了，如demo），数据为d:\demo(就是本机路径) , 怎么加？

Answer 3

我也记不大清楚了，你看看你的IIS的HTTP头是什么，然后就到注册表里面去找，然后就仿照上面的办法做就OK了。