Procedure Create_IIS_VirtualDir(VirtualDirectoryName : String;PhisicalPath : String =  ‘c:\’;AccessRead : Boolean = True;EnableDirBrowsing : Boolean =  False);

Var

IIS, IIS_WServer, Root,  NewDir: Variant;

Begin

 If not  DirectoryExists(PhisicalPath) then

 If not  ForceDirectories(PhisicalPath) then Exit;

 IIS :=  CreateOleObject(‘IISNamespace’);

 IIS :=  IIS.GetObject(‘IIsWebService’, ‘localhost/w3svc’);

 IIS_WServer :=  IIS.GetObject(‘IIsWebServer’, ‘1′);

 Root :=  IIS_WServer.GetObject(‘IIsWebVirtualDir’, ‘Root’);

 NewDir :=  Root.Create(‘IIsWebVirtualDir’, VirtualDirectoryName);

// setting web dir  property

 NewDir.AccessRead :=  AccessRead;

 NewDir.EnableDirBrowsing :=  EnableDirBrowsing;

 NewDir.Path :=  PhisicalPath;

 NewDir.SetInfo;

End;

Tramite questa procedura è possibile [...]