超级难题,做Web安装程序,如何在程序中修改IIs(或Pws)的默认web目录? (100分)

我们可以在IIS配置中手动配置web 根目录,如何用Delphi 代码实现呢?

没人知道？超级难题，哈哈！

我不知道如何用Delphi 代码实现更改web根目录
但我知道有一些B/S架构的软件在安装时用户可以在服务器上任意指定路径,只是都需在
web 根目录中复制一些文件,哪怕只有几个文件,反正离不开web根目录的支持.

比较困难，没有对这个进行钻研。
平时只是把必要的文件拷入根目录下。
楼主提出的东西确实是值得研究，深入~

问一下M$就可以了
好像是什么活动目录编程吧，我不清楚

强烈关注！！
安装软件可以做到吗？？

我不知道，不过我想的话，无非就是更改注册表的键值啦，ini文件啦，

我以前做过，可以的！
先等。。。
我找一下...

代码如下，就是将当前的目录设为默认的虚拟目录，相信能够举一反三吧！
var
WebSite, WebServer, WebRoot: Variant;
vFileName: String;
vInifile: Tinifile;
begin
frmServer.Cursor := crHourGlass;
vFileName := ExtractFilePath(ParamStr(0)) + 'Config/iadmin.ini';
vInifile := Tinifile.Create(vFileName);
try
Label5.Visible := true;
try
Application.ProcessMessages;
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebServer := WebSite.GetObject('IIsWebServer', '1');
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
Sleep(2000);
WebRoot.Path := ExtractFileDir(ParamStr(0));
WebRoot.AccessRead := true;
WebRoot.SetInfo;
vInifile.WriteString('configure','Path',ExtractFileDir(ParamStr(0)));
MessageBox(Handle,'WEB服务器虚拟目录设置完毕！ ','系统信息',0+64);
except
On E: Exceptiondo
MessageBox(Handle,PChar('WEB服务器虚拟目录设置失败：' + E.Message),'系统消息',0+16);
end;
finally
Label5.Visible := false;
frmServer.Cursor := crDefault;
WebSite := Null;
WebServer := Null;
WebRoot := Null;
vInifile.Destroy;
end;
end;

实际上可以从MSDN获得上面一些类型的信息，我当初主要就是查了MSDN的！

好的，谢谢

厉害!

这个问题我解决了。联系方式：MSN：chenfreax@hotmail.com