Delphi中用Adsi创建IIS虚拟目录的方法

先引入类型库(Project|Import Type Library)adsiis.dll、iisext.dll和activeds.tlb新建一个单元，声明。

unit ActiveDs;
            interface
            　function ADsGetObject(const PathName: WideString; const GUID:
            TGUID; out I: IUnknown): HRESULT; stdcall;
            implementation
            　function ADsGetObject; 　　external activeds.dll name ADsGetObject;
            end.

方法一(参照C++)

var
            　I: IADsContainer;
            　ADs: IADs;
            begin
            　if ADsGetObject(IIS://localhost/w3svc, IID_IADsContainer, IUnknown(I)) = S_Ok then
            　begin
            　　ADs := IADs(I.GetObject(IIsWebServer, 1));
            　　ShowMessage(ADs.ADsPath);
            　　if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then
            　　begin
            　　　ADs := IADs(I.GetObject(IIsWebVirtualDir, Root));
            　　　ShowMessage(ADs.ADsPath);
            　　　if ADs.QueryInterface(IID_IADsContainer, I) = S_OK then
            　　　begin
            　　　　ADs := IADs(I.Create(IIsWebVirtualDir, DelphiTest));
            　　　　ADs.Put(AccessRead, True);
            　　　　ADs.Put(Path, c:Temp);
            　　　　ADs.SetInfo;
            　　　end;
            　　end;
            　end;
            end;

方法二(使用接口)

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;

方法三(使用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;

补充：软件开发 , Delphi ,