安装程序的主要步骤
1、拷贝web程序到硬盘(如c:/test,后面的程序要用到这个目录)
2、用程序建立虚拟目录,
先引入类型库(Project|Import Type Library)adsiis.dll、iisext.dll和activeds.tlb新建一个单元,声明。
然后建立一个过程,中间的代码就像里面一样的
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');//variantest是虚拟目录名自已定
VDir.AccessRead := True;
VDir.Path := 'C:/test';//上面的实际目录
VDir.SetInfo;
end;