Повторный запрос администраторских привилегий в приложении на Delphi

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

Вопрос о повторном запросе администраторских привилегий в приложении, уже запущенном с повышенными правами, является актуальным для разработчиков, работающих с технологиями, требующими высокого уровня доступа. В данном случае, пользователь хочет, чтобы его приложение, запущенное с администраторскими привилегиями, могло повторно запрашивать подтверждение от пользователя через UAC (User Account Control) для выполнения критических действий.

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

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

Шаги для использования CredUIPromptForCredentials:

1. Информировать пользователя о том, что ему будет представлено диалоговое окно для ввода имени пользователя и пароля.
2. Вызвать функцию CredUIPromptForCredentials, указав необходимые параметры, включая идентифицирующие данные или сообщение.
3. Проверить полученные учетные данные с помощью функций CredUIParseUserName и CredUIConfirmCredentials.

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

uses
  Winapi.CredUI;

function ShowCredentialsPrompt(const Caption, Message: string; out Username, Password: string): Boolean;
var
  Credentials: PCREDENTIALS;
begin
  Result := False;
  try
    Username := '';
    Password := '';
    ZeroMemory(@Credentials, SizeOf(TCREDENTIALS));
    with Credentials do
    begin
      cbSize := SizeOf(TCREDENTIALS);
      Persist :=CRED_PERSIST_NONE;
      TargetAlias := PChar(Caption);
    end;
    with Credentials.TargetInformation do
    begin
      cbSize := SizeOf(TARGET_CRED_HISTORY);
      ulAuthnTarget := AUTHAUTHN_SERVICE;
      pTargetData := PChar(Message);
      cbTargetData := Length(Message);
    end;
    if CredUIPromptForCredentials(nil, nil, Credentials, nil) then
    begin
      Username := Credentials.UserName;
      Password := Credentials.get_CredentialBlob(PChar(Password), Length(Password));
      Result := True;
    end;
  except
    on E: Exception do
    begin
      Result := False;
      // Обработка исключений
    end;
  end;
end;

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

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

В качестве альтернативы, можно использовать механизм COM Elevation Moniker для создания COM-класса, который будет запускаться с повышенными правами. Все "чувствительные" операции можно разместить в этом классе, который будет создаваться при каждом запуске приложения, тем самым обеспечивая повторный запрос администраторских привилегий.

Заключение

Использование CredUIPromptForCredentials или создания COM-класса с использованием COM Elevation Moniker являются возможными решениями для повторного запроса администраторских привилегий в приложении на Delphi. Выбор между этими методами зависит от конкретных требований приложения и предпочтений разработчика.

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

Повторный запрос администраторских привилегий в приложении на Delphi, уже запущенном с повышенными правами, для выполнения критичных действий, требующих подтверждения от пользователя через UAC.

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

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

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