Подскажите, почему получаю ошибку
Code: 1336. Список управления доступом (ACL) имеет неверную структуру
при вызове последнего SetFileSecurity(
По справке, ACL создается самой функцией, а потом мне тыкают, что у неё какая-то не такая структура (((
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
procedure SetSpecialAccessRigths(const AFileName: string);
const
WellKnownSID_SECURITY_LOCAL_SYSTEM_RID_S = 'S-1-5-18';
WellKnownSID_Creator_Owner_ID = 'S-1-3-0';
DOMAIN_ALIAS_RID_ADMINS_S = 'S-1-5-32-544';
DOMAIN_ALIAS_RID_USERS_S = 'S-1-5-32-545';
SIDSCount = 4;
SIDsArr: array [0..SIDSCount-1] of string = (
WellKnownSID_SECURITY_LOCAL_SYSTEM_RID_S, //NT AUTHORITY\система
WellKnownSID_Creator_Owner_ID, //СОЗДАТЕЛЬ-ВЛАДЕЛЕЦ
DOMAIN_ALIAS_RID_ADMINS_S, //BUILTIN\Администраторы
DOMAIN_ALIAS_RID_USERS_S //BUILTIN\Пользователи
);
var
SD: TSecurityDescriptor;
ACL: PACL;
i: Integer;
NewSIDs: array [0..SIDSCount-1] of PSID;
ea: array [0..SIDSCount-1] of EXPLICIT_ACCESS_A;
dwNewAclSize: Integer;
begin
ForceDirectories(AFileName);
try
FillChar(NewSIDs, SizeOf(NewSIDs), 0);
FillChar(ea, SizeOf(ea), 0);
ACL := nil;
for i := 0 to SIDSCount-1 do
begin
Win32Check(ConvertStringSidToSidW(DOMAIN_ALIAS_RID_USERS_S, NewSIDs[i]));
ea[i].grfAccessPermissions := GENERIC_ALL;
ea[i].grfAccessMode := GRANT_ACCESS;
ea[i].grfInheritance := SUB_CONTAINERS_AND_OBJECTS_INHERIT;
ea[i].Trustee.MultipleTrusteeOperation := NO_MULTIPLE_TRUSTEE;
ea[i].Trustee.pMultipleTrustee := nil;
ea[i].Trustee.TrusteeForm := TRUSTEE_IS_SID;
ea[i].Trustee.TrusteeType := TRUSTEE_IS_WELL_KNOWN_GROUP;
ea[i].Trustee.ptstrName := PAnsiChar(NewSIDs[i]);
end;
CheckOSError(SetEntriesInAclW(SIDSCount, @ea, nil, ACL));
Win32Check(InitializeSecurityDescriptor(@SD, SECURITY_DESCRIPTOR_REVISION));
Win32Check(SetSecurityDescriptorDacl(@SD, True, @ACL, False));
Win32Check(SetFileSecurity(PChar(AFileName), DACL_SECURITY_INFORMATION, @SD));
finally
LocalFree(HLocal(ACL));
for i := 0 to SIDSCount-1 do
begin
FreeSid(NewSIDs[i]);
end;
end;
end;
