Salut à tous.
J'essaye de partager un repertoire avec Inno steup. Donc le partage c'est bon avec ceci :
Par contre mon répertoire est partagé en acces restreint à tout le monde.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 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;
J'ai bien compris qu'il fallait utiliser SetShareInfo et un Win32_SecurityDescriptor.... mais impossible de le faire marche.
Auriez vous un exemple sous la main ? (ou une autre methode)
Merci d'avance
Partager