Droits NTFS

Réponse acceptée !
Salut,

voici ton code complété qui a l'air de fonctionner.

A+

Damien

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, aclAPI, accCtrl, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
procedure TrouverACL(sObjet: String);
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.TrouverACL(sObjet: String);
var
FiName : PChar; // Nom de l'objet
psd : PSECURITY_DESCRIPTOR; // Pointeur vers le Descripteur de Sécurité
dwLen : DWORD; // Taille du descripteur de sécurité

lpbDaclPresent : Bool; // Présence du DACL
lpbDaclDefaulted : Bool; // DACL automatique (hérité)
pDacl : PACL; // Pointeur vers le DACL

nNbEntries : Cardinal; // Nb d'entrées (d'ACE)
pListEntries : PEXPLICIT_ACCESS_; // Pointeur vers un tableau de
pEntry : PChar;
// structures de type EXPLICIT_ACCESS
i : Integer;
begin

// Initialisation
FiName := PChar(sObjet + #0);
pDacl := nil;
psd := nil;
dwLen := 0;
nNbEntries := 0;
pListEntries := nil;
GetFileSecurity(FiName,DACL_SECURITY_INFORMATION,psd,0,dwLen);
psd := AllocMem(dwLen);

// Récup des infos de sécurité (psd)
try
if not GetFileSecurity(PChar(FiName),DACL_SECURITY_INFORMATION,psd,dwLen,dwLen) then begin
ShowMessage(SysErrorMessage(GetLastError));
exit;
end;

// Récup de la liste de contrôle d'accès (pDacl)
GetSecurityDescriptorDacl(psd, lpbDaclPresent, pDacl, lpbDaclDefaulted);
IF lpbDaclPresent then
begin
If pDacl = nil Then Memo1.lines.add('DACL nul : Accès total')
Else
begin
Memo1.lines.add('DACL-ACL-Count: ' + inttostr(pDacl^.AceCount));
Memo1.lines.add('DACL-ACL-Size: ' + inttostr(pDacl^.AclSize));
// Récup d'un tableau contenant les ACE (pListEntries)
if GetExplicitEntriesFromAcl(pDacl^, nNbEntries, @pListEntries) = ERROR_SUCCESS then
begin
try
for i := 0 to pDacl^.AceCount - 1 do
begin
pEntry := (PChar(pListEntries) + i * sizeof(EXPLICIT_ACCESS)) ;
Memo1.Lines.Add('grfAccessPermissions[' + Inttostr(i) + '] = ' +
IntToStr(PEXPLICIT_ACCESS_(pEntry)^.grfAccessPermissions));
end;
finally
LocalFree(HLOCAL(pListEntries));
end;
end;



End;
end
else
begin
Memo1.Lines.Add('Pas de DACL');
end;

finally
FreeMem(psd,dwLen);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TrouverACL('c:\Master.txt');
end;

end.