您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

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

时间:2011/9/3 15:33:46 点击:

  核心提示:笔者就是几次调试都没通过(能力有限,知识有限呀:-(),自古通向罗马就不止一条道。通过对注册表的研究,终于让我发现了IIS在注册表中的老巢,通过N次研究(N3)终于弄清动态建立虚拟目录的方法。笔者所采...
笔者就是几次调试都没通过(能力有限,知识有限呀:-(),自古通向罗马就不止一条道。通过对注册表的研究,终于让我发现了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;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号