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

用DELPHI写注册表实现建立IIS虚拟目录 [原创] 计世商情网 徐辉 最近笔者在制作一安装程序时遇到需动态建立虚拟目录的问题，通过在网上查找相关资料，发现有很多关于用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中调试通过。 [来源:programfan.com(编程爱好者)][选取:kjkimberly]