在使用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