最近笔者在制作安装时遇到需动态建立虚拟目录问题通过在网上查找相关资料发现有很多有关用DELPHI来建立IIS虚拟目录例子但都是需要加载类库不容量调试且对类库知识掌握程度要求较高
笔者就是几次调试都没通过(能力有限知识有限呀:-()自古通向罗马就不止条道通过对注册表研究终于让我发现了IIS在注册表中老巢通过N次研究(N<3)终于弄清动态建立虚拟目录思路方法笔者所采用是通过写注册表方式来实现思路方法简单不需要加入类复杂过程唯区别是需要重启电脑后才能生效现将代码公布如下希望对能对此有兴趣朋友们有所帮助代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
RegODBC:TRegistry;
registerTemp : TRegistry;
SysPath: .gif' /> [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);
regodbc.ValueExists('/fire') then
begin
suimessage1.Text:='本机WEB已存在名为fire虚拟目录'+#13#10+'请将此fire删除或重命名';
suimessage1.IconType:=suistop;
suimessage1.ButtonCount:=1;
suimessage1.Caption:='';
suimessage1.ShowModal=mrok then
winexec(pchar(SysPath+'\inetsrv\inetmgr.exe'),sw_shownormal);
exit;
end
begin
registerTemp := TRegistry.Create; //建立个Registry例子
with registerTemp do
begin
RootKey:=HKEY_LOCAL_MACHINE;//设置根键值为HKEY_LOCAL_MACHINE
//找到或创建\SYSTEM\ControlSet001\Services\W3SVC\Parameters\Virtual Roots,写入IIS配置信息
OpenKey('\SYSTEM\ControlSet001\Services\W3SVC\Parameters\Virtual Roots',True) then
begin
WriteString('/fire','E:\fire,,205');
end
//创建键值失败
begin
suimessage1.Text:='IIS配置失败本即将关闭'+#13#10+'关闭后请先检查Internet服务管理器排除或安装后再运行本';
suimessage1.IconType:=suistop;
suimessage1.ButtonCount:=1;
suimessage1.Caption:='';
suimessage1.ShowModal=mrok then
application.Terminate ;
end;
CloseKey;
Free;
end;
end;
RegODBC.Free;
end;
介绍说明:代码中用到了suipack4Control控件suimessagedialog组件(起提示作用)例子确认窗口也可通过Application.MessageBox来替代代码在DELPHI6+WINDOWS2000中调试通过
最新评论