高手！高分！delphi 中如何删除iis中的虚拟目录

Question

高手！高分！delphi 中如何删除iis中的虚拟目录
不够再加

Answer 1

部分原创；
1，　　先引入类型库(Project|Import Type Library)adsiis.dll、iisext.dll
2，procedure TForm1.Button2Click(Sender: TObject);
var
WebSite,WebServer,WebRoot: Variant;
begin
WebSite := CreateOleObject('IISNamespace');
WebSite := WebSite.GetObject('IIsWebService', 'localhost/w3svc');
WebServer := WebSite.GetObject('IIsWebServer', '1');
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
WebRoot.delete('IIsWebVirtualDir', 'VariantTest');end;

Answer 2

来自超级猛料，生成VIR；
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;
其实可以写PAS专门操作ISS的；