用DELPHI通过写注册表来实现建立IIS的虚拟目录

网上有很多关于用DELPHI来建立IIS的虚拟目录的例子，但都是需要加载类库，我这里则采用写注册表的方式来实现，方法简单，主要是不需要加入类的复杂过程，唯一的不同是需要重启电脑后才能生效。代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  RegODBC:TRegistry;
  registerTemp : TRegistry;
  SysPath: array [0..255] of char;
begin
  RegODBC:=TRegistry.create;     //访问注册表
  RegODBC.RootKey:=HKEY_LOCAL_MACHINE;
  RegODBC.OpenKey("SYSTEMControlSet001ServicesW3SVCParametersVirtual Roots",True);
  getsystemdirectory(SysPath,255);
  if regodbc.ValueExists("/fire") then
    begin
      suimessage1.Text:="本机WEB已存在名为fire的虚拟目录。"+#13#10+"请将此fire删除或重命名。";
        suimessage1.IconType:=suistop;
        suimessage1.ButtonCount:=1;
        suimessage1.Caption:="错误";
        if suimessage1.ShowModal=mrok then
          winexec(pchar(SysPath+"inetsrvinetmgr.exe"),sw_shownormal);
       exit;
    end
  else
    begin
  registerTemp := TRegistry.Create; //建立一个Registry实例
  with registerTemp do
    begin
      RootKey:=HKEY_LOCAL_MACHINE;//设置根键值为HKEY_LOCAL_MACHINE

//找到或创建SYSTEMControlSet001ServicesW3SVCParametersVirtual Roots,写入IIS配置信息
     if OpenKey("SYSTEMControlSet001ServicesW3SVCParametersVirtual Roots",True) then
       begin
         WriteString("/fire","E:fire,,205");
       end
     else//创建键值失败
       begin
          suimessage1.Text:="IIS配置失败，本程序即将关闭。"+#13#10+"关闭后请先检查Internet服务管理器，排除错误或安装后再运行本程序。";
          suimessage1.IconType:=suistop;
          suimessage1.ButtonCount:=1;
          suimessage1.Caption:="错误";
        if suimessage1.ShowModal=mrok then
           application.Terminate ;
       end;
     CloseKey;
    Free;
  end;   
    end;
  RegODBC.Free;
 end;

 说明：代码中用到了suipack4控件的suimessagedialog组件，例子的确认窗口也可通过Application.MessageBox()来替代。如大家对此有兴趣的话可以与我联系。xh416@163.net   QQ:49055028