ivan 
ivan.revelli@synaptica.info 
4 April 2008-
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 creare dinamicamente virtual directory da codice. Ciò può risultare utile nel caso si debba scrivere un programma di installazione per la propria applicazione Web oppure creare delle procedure remote.
E’ inoltre possibile impostare in modo semplice moltissimi parametri e gestire IIS in modo semplice utilizzando I metodi descritti da ms in questo link
ma il codice pascal deve essere per forza rosa ?
[Reply]