Berechtigungen einer Datei setzen (jwscl)

[Alter Mann]

Hi,

Ich habe es hin bekommen.

SetAccessControlEntry sieht jetzt so aus:

Delphi-Quellcode:

procedure   TFileEntry.SetAccessControlEntry(Value : TJwSecurityAccessControlEntry);
begin
  if FAccessControlEntry <> Value then
  begin
    FAccessControlEntry := TJwDiscretionaryAccessControlEntryAllow.Create(nil,
                           [afObjectInheritAce, afContainerInheritAce],
                           Value.AccessMask,
                           Value.SID,
                           false);
  end;
end;

@Dezipaitor
Das mit den Flags hat den erwünschten Effekt gehabt. Danke!!!

Gruß