Отключить редактор системного реестра

Delphi , ОС и Железо , Реестр

Например мы вынесли компонент класса TCheckBox, назвали его "Использовать редактор системного реестра". Задача такова: когда флажок установлен пользователь может воспользоваться редактором реестра, когда не установлен - соответственно, не может!!!

Что нужно для осуществления этой задачи? Нужно воспользоваться ключом

HKEY_CURRENT_USER\Software\Microsoft\ Windows\CurrentVersion\Policies\System

создать в нём параметр:

DisableRegistryTools

и задать ему в качестве значение 1, т.е. задействовать его.

Код пишем по нажатию на самом Checkbox'e:

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  H: TRegistry;
begin
  H := TRegistry.Create;
  with H do
  begin
    RootKey := HKEY_CURRENT_USER;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', true);
    if CheckBox1.Checked then
      WriteInteger('DisableRegistryTools', 0)
    else
      WriteInteger('DisableRegistryTools', 1);
    CloseKey;
    Free;
  end;
end;

Не забудьте в области uses объявить модуль Registry:

uses
  Registry; 

Отключение редактора системного реестра на компьютере позволяет запретить пользователю изменения параметров реестра, выполняя это с помощью создания параметра DisableRegistryTools в ключе HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policie

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

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

:: Главная :: Реестр ::