Управление правами доступа к файлам и папкам в среде Delphi: альтернатива `icacls.exe` без командной строки

Delphi , Синтаксис , Справочник по API-функциям

Управление правами доступа к файлам и папкам в среде Delphi: альтернатива icacls.exe без командной строки

Вопрос управления правами доступа к файлам и папкам является важной задачей в разработке программного обеспечения, особенно в среде, такой как Delphi. Инструмент icacls.exe, который обычно используется для этих целей в командной строке, может быть неудобен при интеграции в приложения. В данной статье мы рассмотрим, как можно получить информацию о правах доступа к файлам и папкам, используя возможности Windows API, не прибегая к использованию командной строки.

Получение информации о правах доступа

Для получения информации о правах доступа к файлам и папкам в Delphi можно использовать функции Windows API, такие как GetFileSecurity() или GetNamedSecurityInfo(). Эти функции позволяют извлекать данные о безопасности, включая списки доступа к контролю (DACLs) и списки доступа к управлению (SACLs).

Пример кода на Object Pascal

uses
  SysUtils,
  SecurityBaseApi;

// Функция для получения DACL файла или папки
function GetDACL(const FileName: TFileName): string;
var
  SecurityDescriptor: PSecURITY_DESCRIPTOR;
  DACL: PSECURITY_DESCRIPTOR;
  AccessControlEntry: array[0] of ACE_HEADER;
  BufferSize, ACECount: DWORD;
begin
  BufferSize := SizeOf(SECURITY_DESCRIPTOR) + SizeOf(ACCESS_ALLOWED_ACE) * 2;
  SetLength(AccessControlEntry, 1);
  GetNamedSecurityInfo(PChar(FileName), SE_FILE_OBJECT, DACL_SECURITY_INFORMATION,
    nil, nil, nil, SecurityDescriptor, DACL);
  ACECount := GetAce(DACL, 0, AccessControlEntry[0]);
  Result := '';
  if ACECount = ERROR_INSUFFICIENT_BUFFER then
  begin
    SetLength(AccessControlEntry, ACECount);
    BufferSize := GetLastError;
    GetNamedSecurityInfo(PChar(FileName), SE_FILE_OBJECT, DACL_SECURITY_INFORMATION,
      nil, nil, nil, SecurityDescriptor, DACL);
    ACECount := GetAce(DACL, ACECount, AccessControlEntry[0]);
    for var Index := 0 to ACECount - 1 do
    begin
      var ACEHeader := AccessControlEntry[Index];
      Result := Result + Format('(A;%s;%s;%s;%s)', [
        ACEHeader.Mask To HexString(4),
        ACEHeader.Type To HexString(2),
        ACEHeader.Flags To HexString(2),
        FormatACE(ACEHeader)
      ]);
      if Index < ACECount - 1 then
        Result := Result + ' ';
    end;
  end;
end;

function FormatACE(const ACEHeader: ACE_HEADER): string;
begin
  if TypeOf ACEHeader is ACCESS_ALLOWED_ACE then
    Result := Format('0x%x:%s', [ACEHeader.GrantedPrivilegeMask, GetSidTypeFromACE(ACEHeader: ACE_HEADER(AccessAllowedACE(ACEHeader))).c_str]);
  else
    Result := 'Unknown ACE type';
end;

// Вызов функции для получения DACL
var
  DACLString: string;
begin
  DACLString := GetDACL('C:\Path\To\Your\File.txt');
  // Обработка полученной строки DACLString
end;

Сохранение и применение прав доступа

После получения DACL в виде строки, можно использовать функцию ConvertStringSecurityDescriptorToSecurityDescriptor() для преобразования строкового представления обратно в структуру безопасности. Это позволит сохранить или восстановить права доступа, используя функцию SetNamedSecurityInfo().

Заключение

Использование Windows API для управления правами доступа к файлам и папкам в Delphi предоставляет разработчикам гибкие и мощные инструменты, которые могут быть интегрированы непосредственно в приложение, не требуя использования командной строки. Это особенно полезно для создания надежных и безопасных приложений, которые могут управлять правами доступа в соответствии с требованиями пользователя.

Подтвержденный ответ

Для получения DACL файла или папки в Delphi можно использовать функцию GetNamedSecurityInfo(), а для преобразования DACL в строку - функцию ConvertSecurityDescriptorToStringSecurityDescriptor(). Полученная строка может быть использована для хранения или передачи DACL и восстановлена обратно в DACL с помощью ConvertStringSecurityDescriptorToSecurityDescriptor() и SetNamedSecurityInfo().

Комментарии

Разработчики могут столкнуться с различными трудностями при работе с низкоуровневыми функциями безопасности, но наличие примеров кода и документации по Windows API значительно облегчает этот процесс.

Создано по материалам из источника по ссылке.

управление правами доступа к файлам и папкам в среде Delphi без использования командной строки.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Справочник по API-функциям ::