Как Прочитать Владельца Файла (ntfs)?

[Sascha]

function GetFileOwner( FileName: string; var Domain, Username: string ): boolean;
var
  SecDescr: PSecurityDescriptor;
  SizeNeeded, SizeNeeded2: DWORD;
  OwnerSID: PSID;
  OwnerDefault: BOOL;
  OwnerName, DomainName: PChar;
  OwnerType: SID_NAME_USE;
begin
   Result := false;
   GetMem( SecDescr, 1024 );
   GetMem( OwnerSID, SizeOf( PSID ) );
   GetMem( OwnerName, 1024 );
   GetMem( DomainName, 1024 );
   try
      if not GetFileSecurity( PChar( FileName ),
      OWNER_SECURITY_INFORMATION,
      SecDescr, 1024, SizeNeeded ) then
         Exit;
      if not GetSecurityDescriptorOwner( SecDescr, OwnerSID, OwnerDefault) then
         Exit;
      SizeNeeded := 1024;
      SizeNeeded2 := 1024;
      if not LookupAccountSID( nil, OwnerSID, OwnerName,
      SizeNeeded, DomainName, SizeNeeded2, OwnerType ) then
         Exit;
      Domain := DomainName;
      Username := OwnerName;
   finally
      FreeMem( SecDescr );
      FreeMem( OwnerName );
      FreeMem( DomainName );
   end;
   Result := true;
end;

Код для использования:

procedure TForm1.Button1Click(Sender: TObject);
var
  Domain, Username: string;
begin
   GetFileOwner( 'C:\имя.файла', Domain, Username );
   ShowMessage( Username + '@' + Domain );
end;