开发学院软件开发 Delphi 用DELPHI通过写注册表来实现建立IIS的虚拟目录阅读

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

　2006-02-04 13:48:07　来源：WEB开发网　　　

核心提示： 网上有很多关于用DELPHI来建立IIS的虚拟目录的例子，但都是需要加载类库，用DELPHI通过写注册表来实现建立IIS的虚拟目录，我这里则采用写注册表的方式来实现，方法简单，'; suimessage1.IconType:=suistop; suimessage1.ButtonCount:=1; s

　网上有很多关于用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;