Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 3 апреля!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО 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;
H.RootKey:=HKEY_CURRENT_USER;
H.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System',true);
if CheckBox1.Checked then H.WriteInteger('DisableRegistryTools',0)
else H.WriteInteger('DisableRegistryTools',1);
H.CloseKey;
H.Free;
end;



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

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Registry;





<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS