我们可以在IIS配置中手动配置web 根目录,如何用Delphi 代码实现呢?
解决方案 »
- 如何把Delphi2010的智能关了,因为我装了Cnpack??
- 除了用一个时间器来定时获得当前时间外。还有什么办法可以实时准确的获得当前时间?
- 请问一个关于读取服务器xml文件的问题
- 如何在Delphi中使用VC中的VFW.H文件?
- 如何发布代INTERBASE数据库的软件(C/S结构)。主要是客户端需要什么文件。
- 由access直接生成dbf文件出现乱码。怎么回事?
- 写一个COM是否要注册
- 一个delphi编程的问题?
- 菜鸟问题,来者有分。关于子窗体的关闭按钮。
- 如何获得并修改本机的IP,网关与DNS??一百九十分!!!!!
- Help~!
- 请前辈们进来指教,关于错误处理问题,有范例,在线等(100分)
Windows Registry Editor Version 5.00[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\W3SVC\Parameters\Virtual Roots]
"/"="D:\\gale\\个人网站,,201"
"/IISHelp"="c:\\windows\\help\\iishelp,,201"
不行啊老兄,[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\W3SVC\Parameters\Virtual Roots]下的"\"值对IIS的web根目录没有任何影响,我还把其中的ControlSet001改成ControlSet002试了一下也是无效,不知这两个值究竟有何用
还有假如是PWS呢,注册表里的值就不相同了吧?
procedure TForm3.BitBtn4Click(Sender: TObject);
var
Disp: IDispatch;
begin
Disp := IISNamespace1.GetObject('IIsWebService', 'localhost/w3svc');
Disp := (Disp as IADsContainer).GetObject('IIsWebServer', '1');
Disp := (Disp as IADsContainer).GetObject('IIsWebVirtualDir', 'Root');
Disp := (Disp as IADsContainer).Create('IIsWebVirtualDir', 'DelphiADSITest');
(Disp as IADs).Put('AccessRead', 'True');
(Disp as IADs).Put('Path', 'c:\ADSITest');
(Disp as IADs).SetInfo;
end;2、使用Variant(就是类似VB和ASP的方法)
procedure TForm2.BitBtn1Click(Sender: TObject);
var
WebSite, WebServer, WebRoot, VDir: Variant;
begin
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebServer := WebSite.GetObject('IIsWebServer', '1');
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
VDir := WebRoot.Create('IIsWebVirtualDir', 'VariantTest');
VDir.AccessRead := True;
VDir.Path := 'C:\Test';
VDir.SetInfo;
end;