Как создать администратора в Windows с помощью Delphi

Delphi , ОС и Железо , Windows

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

Описание проблемы

Для решения поставленной задачи пользователю необходимо использовать возможности операционной системы для создания новых учетных записей с правами администратора. Существует несколько способов достижения этой цели, включая использование командной строки и программирование через API Windows.

Подходы к решению

Один из альтернативных подходов к решению задачи заключается в использовании API-функции NetUserAdd, которая позволяет создать нового пользователя. Однако для использования этой функции необходимо наличие соответствующего обертчика в Delphi или написание собственного кода для вызова API.

Подтвержденное решение

Подтвержденное решение заключается в использовании функций NetUserAdd и NetUserSetGroups, доступных в библиотеке JEDI Headers для Delphi. Пример кода, приведенный ниже, демонстрирует, как можно создать нового пользователя и добавить его в группу администраторов:

program ProjectAddNewUser;

{$APPTYPE CONSOLE}

uses
  JclWin32,//Jedi Library
  Windows,
  SysUtils;

function CreateWinUser(const wServer, wUsername, wPassword, wGroup: WideString): Boolean;
var
  Buf: USER_INFO_2; // Buf for the new user info
  Err: NET_API_STATUS;
  ParmErr: DWORD;
  GrpUsrInfo: LOCALGROUP_MEMBERS_INFO_3; // Используем другой тип для указания группы
  wDummyStr: WideString;
begin
  wDummyStr := '';
  FillChar(Buf, SizeOf(USER_INFO_2), 0);
  // Заполнение структуры данных для нового пользователя
  with Buf do
  begin
    // ...
  end;

  GrpUsrInfo.lgrmi3_sid := TSECURITY_DESCRIPTOR.CreateSid(TSECURITY_IDENTIFIER_INFORMATION.CreateWellKnownSid(WinWellKnownSidType.WellKnownSidTypeAdministrators, nil));
  GrpUsrInfo.lgrmi3_domainandname := PWideChar(wUsername); // Указываем имя пользователя

  Err := NetUserAdd(PWideChar(wServer), 1, @Buf, @ParmErr);
  Result := (Err = NERR_SUCCESS);

  if Result then // Теперь устанавливаем группу для нового пользователя
  begin
    Err := NetLocalGroupAddMembers(PWideChar(wServer), PWideChar('Administrators'), 3, @GrpUsrInfo, 1);
    Result := (Err = NERR_SUCCESS);
  end;
end;

begin
  if CreateWinUser('localhost', 'MyNewUser', 'ThePassword', 'Administrators') then
    Writeln('Ok')
  else
    Writeln('False');

  Readln;
end.

В приведенном коде используется функция CreateWinUser, которая создает нового пользователя и добавляет его в группу администраторов. Обратите внимание на использование типа LOCALGROUP_MEMBERS_INFO_3 для указания группы и вызов функции NetLocalGroupAddMembers для добавления пользователя в группу администраторов.

Заключение

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

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

Вопрос связан с созданием нового пользователя в Windows с правами администратора через среду разработки Delphi.

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

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

:: Главная :: Windows ::