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…
Leggi tutto
FL – Studio FL Studio è un a pplicazione spettacolare scritta in Delphi per la gestione audio professionale, è veramente bella e gode di 5’000’000 di download al suo attivo. Il sito del prodotto : http://www.flstudio.com/index.html Nick Hodges (noto sviluppatore di fama mondiale ) ne ha fatto un post sul suo blog , casualmente…
Leggi tutto
