Почему моё приложение на Delphi требует повышения привилегий UAC?

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

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

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

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

Причины, требующие повышения привилегий

В Windows Vista и более поздних версиях, даже при использовании администраторских прав, полные права ограничены по сравнению с Windows XP и более ранними версиями. Приложение может потребовать повышения привилегий, если оно пытается выполнить задачи, требующие администраторских прав, такие как доступ к защищенным системным расположениям, запись данных в защищенные расположения, например, в папку %ProgramFiles% или Windows директорию, а также запись в HKEY_LOCAL_MACHINE.

Решение проблемы

Для решения проблемы с требованием повышения привилегий UAC, разработчики могут использовать несколько подходов:

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

xml <requestedExecutionLevel level="asInvoker" uiAccess="false" />

Этот код следует добавить в раздел <requestedExecutionLevel> манифеста приложения.

1. Создание внешнего манифеста: Если встроенный манифест добавить не получается, можно создать внешний манифест и разместить его в той же папке, что и исполняемый файл.

2. Проверка ресурсов VersionInfo: Иногда Windows может неправильно интерпретировать ресурсы VersionInfo и требовать повышения привилегий. Стоит проверить, нет ли в них подозрительных строк, таких как "SETUP" или "INSTALL", и удалить их.

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

Пример кода

Для добавления манифеста в проект на Delphi, можно воспользоваться следующим кодом:

procedure TForm1.Button1Click(Sender: TObject);
var
  ManifestResourceName: string;
begin
  ManifestResourceName := 'MyAppManifest.appref-ms';
  with TResourceManifest.Create(ManifestResourceName) do
    try
      AddFile(ExtractFilePath(Application.ExeName) + ManifestResourceName);
      SaveToFile(ManifestResourceName, ExtractFilePath(Application.ExeName));
      // Дополнительные действия, например, добавление манифеста в установщик
    finally
      Free;
    end;
end;

Этот код создает манифест с именем MyAppManifest.appref-ms и сохраняет его в ту же директорию, что и исполняемый файл приложения.

Заключение

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

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

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

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

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

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