用DELPHI写注册表实现建立IIS虚拟目录-先飞网电脑教程文章

>> 我们从网络和杂志上收集了近100000余篇各类电脑技术、网络技术、软件技术等方面的文章教程,我们的收录原则:不是精华拒不收录!

用DELPHI写注册表实现建立IIS虚拟目录

［作者：佚名转贴自：本站原创阅读次数：30 更新时间：2005-12-15 16:06:00 录入：刘光勇］

最近笔者在制作一安装程序时遇到需动态建立虚拟目录的问题，通过在网上查找相关资料，发现有很多关于用DELPHI来建立IIS的虚拟目录的例子，但都是需要加载类库，不容量调试，且对类库知识的掌握程度要求较高
。笔者就是几次调试都没通过（能力有限，知识有限呀:-(），自古通向罗马就不止一条道。通过对注册表的研究，终于让我发现了IIS在注册表中的老巢，通过N次研究（N<3）终于弄清动态建立虚拟目录的方法。笔者所采用的是通过写注册表的方式来实现，方法简单，不需要加入类的复杂过程，唯一的不同是需要重启电脑后才能生效。现将代码公布如下，希望对能对此有兴趣的朋友们有所帮助，代码如下：
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('\SYSTEM\ControlSet001\Services\W3SVC\Parameters\Virtual 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+'\inetsrv\inetmgr.exe'),sw_shownormal);
       exit;
    end
  else
    begin
  registerTemp := TRegistry.Create; //建立一个Registry实例
  with registerTemp do
    begin
      RootKey:=HKEY_LOCAL_MACHINE;//设置根键值为HKEY_LOCAL_MACHINE
//找到或创建\SYSTEM\ControlSet001\Services\W3SVC\Parameters\Virtual Roots,写入IIS配置信息
     if OpenKey('\SYSTEM\ControlSet001\Services\W3SVC\Parameters\Virtual 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()来替代。代码在DELPHI6+WINDOWS2000中调试通过。

上一篇:让程序出现windows标准对话框式样的帮助下一篇: 窗体的建立时机及缓冲的思想在ini文件中的应用