在使用Inno Setup安裝期間共享文件夾

Question

是否可以通過innosetup安裝創建網絡共享文件夾？

有權限和所有？

我的應用程序在客戶端網絡中使用2個共享文件夾，每個人都必須能夠讀/寫這些文件夾。

我喜歡在設置中創建它，以避免手動執行此操作。 IT可能嗎？

Answer 1

您可以使用Win32_Share類的Create方法。

試試這個樣本

Const 
FILE_SHARE = 0; 
MAXIMUM_CONNECTIONS = 25; 

function CreateShared(const Path, Name, Description : string):Integer; 
var 
    FSWbemLocator: Variant; 
    FWMIService : Variant; 
    FWbemObjectSet: Variant; 
begin 
    FSWbemLocator := CreateOleObject('WBEMScripting.SWBEMLocator'); 
    FWMIService := FSWbemLocator.ConnectServer('', 'root\CIMV2', '', ''); 
    FWbemObjectSet := FWMIService.Get('Win32_Share'); 
    Result:=FWbemObjectSet.Create(Path, Name, FILE_SHARE, MAXIMUM_CONNECTIONS, Description); 
end; 

並以這種方式

Err:= CreateShared('C:\Foo', 'MyShare','This is a public shared folder'); //0 indicates Success