Скрытая запись в реестр HKLM для приложений на Delphi без UAC диалога

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

Скрытая запись в реестр HKLM для приложений на Delphi без диалога UAC

При разработке приложений для операционных систем Windows, особенно для старых версий, таких как Windows XP и 7, иногда возникает необходимость записать настройки в системный реестр HKLM. Это может быть связано с настройкой системных параметров, которые должны быть доступны всем пользователям системы. Однако, стандартная процедура записи в HKLM требует повышения привилегий, что может вызвать диалог UAC (User Account Control), который может быть нежелателен для пользователей.

Для того чтобы реализовать запись в HKLM без диалога UAC, можно использовать несколько стратегий. Одним из наиболее простых способов является запуск новой процедуры на выполнение задачи, требующей повышения привилегий. Для этого можно использовать функцию ShellExecuteEx с вербом runas, который позволит задать новую задачу с требуемыми привилегиями. Однако, если задача является системно-широкой, то её решение с помощью изменения установщика и выполнения через него может быть более целесообразным.

Другой способ – реализация задач, требующих повышения привилегий, внутри COM-объекта, который основное приложение может инстанцировать по запросу, используя Ком Элевацион Маникер. Такой подход позволяет избежать явного создания отдельного процесса.

Пример реализации скрытой записи в реестр HKLM на Delphi

Для демонстрации начнем с того, что создадим отдельный модуль для выполнения операций, требующих повышения привилегий. Вот пример кода на Object Pascal, который вызывает новую программу для записи в реестр с повышенными привилегиями:

uses
  ShellApi;

procedure RunAsAdmin(const CommandLine: string);
var
  Info: TShellExecuteInfo;
begin
  ZeroMemory(@Info, SizeOf(TShellExecuteInfo));
  Info.cbSize := SizeOf(TShellExecuteInfo);
  Info.fMask := SEE_MASK_NOCLOSEPROCESS;
  Info.lpVerb := PChar('runas');
  Info.lpFile := PChar('cmd.exe');
  Info.lpParameters := PChar('/C ' + CommandLine);
  Info.nShow := SW_HIDE;

  if ShellExecuteEx(@Info) then
    CloseHandle(Info.hProcess);
  else
    raise Exception.Create('Ошибка при запуске программы с повышенными привилегиями');
end;

procedure WriteToRegistry(RegPath, RegValue: string);
begin
  // Пример команды для записи в реестр
  RunAsAdmin('Reg Add "' + RegPath + '" /v "' + RegValue + '" /f /reg:HKEY_LOCAL_MACHINE');
end;

Этот код можно использовать для запуска командной строки с повышенными привилегиями, где Reg Add – это команда для добавления значения в реестр Windows.

Заключение

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

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

При разработке приложений на Delphi для Windows необходимо реализовать запись в системный реестр HKLM без вызова диалога UAC, что может быть достигнуто путем запуска процесса с повышенными привилегиями или использования COM-объекта.

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

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

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