Права доступа NTFS -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [13.59.154.143]

Модераторы: jack128, Rouse_, Krid

Права доступа NTFS

s-mike

Сообщ. #1 , 24.02.05, 21:43

Unregistered

uses ..., Aclapi, AccCtrl;

function SetFileAccessRights(AFile, AUser: String; AMask: DWORD): Boolean;

var

psd : PSECURITY_DESCRIPTOR;

dwSize, dwError : DWord;

bDaclPresent : Bool;

bDaclDefaulted : Bool;

OldAcl : PACL;

NewAcl : PACL;

sd : SECURITY_DESCRIPTOR;

ea : EXPLICIT_ACCESS;

begin

Result := False;

if WIN32Platform <> VER_PLATFORM_WIN32_NT then Exit;

psd := nil;

NewAcl := nil;

bDaclDefaulted := True;

if not GetFileSecurity(PChar(AFile), DACL_SECURITY_INFORMATION, Pointer(1),

0, dwSize) and (GetLastError = ERROR_INSUFFICIENT_BUFFER)

then

try

psd := HeapAlloc(GetProcessHeap, 8, dwSize);

if psd <> nil then

begin

BuildExplicitAccessWithName(@ea, PChar(AUser), AMask,

SET_ACCESS, SUB_CONTAINERS_AND_OBJECTS_INHERIT{NO_INHERITANCE});

Result := GetFileSecurity(PChar(AFile), DACL_SECURITY_INFORMATION, psd, dwSize, dwSize) and

GetSecurityDescriptorDacl(psd, bDaclPresent, OldAcl, bDaclDefaulted) and

(SetEntriesInAcl(1, @ea, OldAcl, NewAcl) = ERROR_SUCCESS) and

InitializeSecurityDescriptor(@sd, SECURITY_DESCRIPTOR_REVISION) and

SetSecurityDescriptorDacl(@sd, True, NewAcl, False) and

SetFileSecurity(PChar(AFile), DACL_SECURITY_INFORMATION, @sd);

end;

finally

if NewAcl <> nil then LocalFree(HLocal(NewAcl));

if psd <> nil then HeapFree(GetProcessHeap, 0, psd);

end;

Параметры: путь к объекту, имя пользователя, маска доступа, ее расчитываешь вот так:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/secauthz/security/access_mask.asp

Автор: Rouse_

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0155 ] [ 15 queries used ] [ Generated: 17.05.24, 03:23 GMT ]