用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('/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()来替代。如大家对此有兴趣的话可以与我联系。xh416@163.net   QQ:49055028

阅读更多
想对作者说点什么? 我来说一句

使用Delphi创建IIS虚拟目录

zgqtxwd zgqtxwd

2008-05-01 00:29:00

阅读数:153

没有更多推荐了,返回首页

不良信息举报

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

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭