初次尝试:用Delphi创建IIS虚拟目录
用Delphi创建IIS虚拟目录,从网上找的代码:
procedure TForm1.Button1Click(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', 'rrr');
VDir.AccessRead := True;
VDir.Path := 'C:\aaa';
VDir.SetInfo;
end;
虚拟路径创建成功,但是不能自动创建应用程序名,就是说必须要去创建的虚拟目录的属性中手动创建应用程序名此虚拟路径才可以正常访问,我因该怎么做才可以自动完成呢? 请高手指教。