OBTENIR LE PROPRIÉTAIRE D'UN FICHIER (NTFS)

// Procédure principale (qui fait tout le boulot)
procedure TNTForm.EditFileChange(Sender: TObject);
var
  ssd: Cardinal;
  psd: PSecurityDescriptor;
  psid: Pointer;
  flags: LongBool;
  saccount: Cardinal;
  account: PChar;
  sdomain: Cardinal;
  domain: PChar;
  snu: Cardinal;
begin
  GetFileSecurity(PChar(EditFile.Text), OWNER_SECURITY_INFORMATION, nil, 0, ssd);
  psd := AllocMem(ssd);
  GetFileSecurity(PChar(EditFile.Text), OWNER_SECURITY_INFORMATION, psd, ssd, ssd);
  GetSecurityDescriptorOwner(psd, psid, flags);
  LookupAccountSid(nil, psid, nil, saccount, nil, sdomain, snu);
  account := AllocMem(saccount);
  domain := AllocMem(sdomain);
  LookupAccountSid(nil, psid, account, saccount, domain, sdomain, snu);
  LabelOwnerName.Caption := account;
  LabelDomainName.Caption := domain;
  FreeMem(psd);
  FreeMem(account);
  FreeMem(domain);
end;