• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • 用DELPHI写注册表实现建立IIS虚拟目录

        [原创] 计世商情网 徐辉   

           

        最近笔者在制作一安装程序时遇到需动态建立虚拟目录的问题,通过在网上查找相关资料,发现有很多关于用DELPHI来建立IIS的虚拟目录的例子,但都是需要加载类库,不容量调试,且对类库知识的掌握程度要求较高   

      。笔者就是几次调试都没通过(能力有限,知识有限呀:-(),自古通向罗马就不止一条道。通过对注册表的研究,

      用Delphi压缩Access数据库
      基于Delphi的屏幕抓图技术的实现,Delphi中数据的自动录入,Delphi编程:用流来读取TXT文件中的数据,使用Delphi创建IIS虚拟目录的方法,Delphi初学者应小心的六大陷阱,Delphi“判断服务器路径”与“清空日志文件”,利用VFW在Delphi中开发视频捕获程序,Delphi实现网页表单数据的自动提交,Delphi编程使用HOOK监视Windows,Delphi编程禁止用户关闭操作系统,Delphi中利用钩子实现QQ聊天窗口的修改,一个判断定文件是否为文本文件的函数,把Flash文件转换为Exe文件,用Delphi实现文件下载的几种方法,Delphi中保存图像列表,基于Delphi的接口编程入门,在Delphi中使用CreateOleObject方法对WORD文件进行操作,利用Delphi开发旅游景点微机售票系统,Delphi中用ICMP探测远程主机状态,Delphi7对XML的支持分析
      Delphi

      终于让我发现了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中调试通过。 

      通过实例看VCL组件开发全过程(一)
      基于Delphi的屏幕抓图技术的实现,Delphi中数据的自动录入,Delphi编程:用流来读取TXT文件中的数据,使用Delphi创建IIS虚拟目录的方法,Delphi初学者应小心的六大陷阱,Delphi“判断服务器路径”与“清空日志文件”,利用VFW在Delphi中开发视频捕获程序,Delphi实现网页表单数据的自动提交,Delphi编程使用HOOK监视Windows,Delphi编程禁止用户关闭操作系统,Delphi中利用钩子实现QQ聊天窗口的修改,一个判断定文件是否为文本文件的函数,把Flash文件转换为Exe文件,用Delphi实现文件下载的几种方法,Delphi中保存图像列表,基于Delphi的接口编程入门,在Delphi中使用CreateOleObject方法对WORD文件进行操作,利用Delphi开发旅游景点微机售票系统,Delphi中用ICMP探测远程主机状态,Delphi7对XML的支持分析
      Delphi

    • 0
    • 0
    • 0
    • 60
    • 单栏布局 侧栏位置: