Локализация прав доступа к папкам в Windows: использование WinAPI для работы с группами безопасности

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

Вопрос локализации прав доступа к папкам в операционных системах Windows может быть довольно сложным, особенно когда речь идет о работе с группами безопасности и использованием идентификаторов безопасности (SID). В данной статье мы рассмотрим, как с помощью WinAPI можно настроить права доступа для группы "EVERYONE" в локализованной среде, используя SID.

Проблема с локализацией группы "EVERYONE"

Разработчики часто сталкиваются с проблемой, когда необходимо установить права доступа для всех пользователей в папке, но стандартное название группы "EVERYONE" не локализовано. В таком случае, необходимо использовать SID, который для группы "EVERYONE" имеет значение S-1-1-0. Однако, стандартные функции, такие как BuildExplicitAccessWithName и SetNamedSecurityInfo, не позволяют напрямую работать с SID.

Решение проблемы с использованием SID

Используя функцию ConvertStringSidToSid, можно преобразовать строку с SID в структуру PSID, которая затем может быть использована для работы с группами безопасности. После этого, с помощью LookupAccountSid, можно получить "читаемое" имя группы, которое можно использовать в функции BuildExplicitAccessWithName.

Пример кода на Object Pascal (Delphi):

procedure TForm1.Button4Click(Sender: TObject);
var
     Sid: PSID;
     peUse: DWORD;
     cchDomain: DWORD;
     cchName: DWORD;
     Name: array of Char;
     Domain: array of Char;
     pDACL: PACL;
     pEA: PEXPLICIT_ACCESS_A;
     R: DWORD;
     foldername: string;
begin
     foldername := 'C:\TEMP'; // Пример пути к папке
     Sid := nil;
     Win32Check(ConvertStringSidToSidA(PChar('S-1-1-0'), Sid));
     cchName := 0;
     cchDomain := 0;
     // Получение длины имени
     if (not LookupAccountSid(nil, Sid, nil, cchName, nil, cchDomain, peUse)) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
     begin
      SetLength(Name, cchName);
      SetLength(Domain, cchDomain);
      if LookupAccountSid(nil, Sid, @Name[0], cchName, @Domain[0], cchDomain, peUse) then
      begin
       // Дальнейшая работа с правами доступа
       // ...
      end;
     end;
     // Остальная часть кода...
end;

Альтернативный подход

Существует альтернативный подход, который заключается в использовании функции CreateWellKnownSid для создания SID известной группы, такой как "Аутентифицированные пользователи". Это позволяет избежать использования LookupAccountSid и BuildExplicitAccessWithName, что упрощает код.

Пример кода на Object Pascal (Delphi):

var
    SID: PJwaWinNT.PSid;
    pDACL: PACL;
    EA: EXPLICIT_ACCESS;
    SID_DATA: array[1..SECURITY_MAX_SID_SIZE] of byte;
    SID_DATA_SIZE: DWORD;
begin
    SID_DATA_SIZE := Length(SID_DATA);
    Pointer(SID) := @SID_DATA;
    if CreateWellKnownSid(WinAuthenticatedUserSid, nil, SID, SID_DATA_SIZE) then
    begin
        // Настройка прав доступа и работа с ними
        // ...
    end;
    // Остальная часть кода...
end;

Заключение

В данной статье мы рассмотрели, как с помощью WinAPI можно настроить права доступа к папкам в Windows, используя SID для работы с группами безопасности. Приведенные примеры кода демонстрируют, как можно локализовать права доступа для группы "EVERYONE" и альтернативный подход с использованием CreateWellKnownSid. Эти знания помогут разработчикам, работающим с Delphi и Pascal, эффективно решать задачи, связанные с безопасностью и правами доступа в операционных системах Windows.

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

Вопрос касается настройки прав доступа к папкам в операционной системе Windows с использованием WinAPI и работы с группами безопасности, включая локализацию прав для группы 'EVERYONE' через идентификаторы безопасности (SID).

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

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

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