Запретить использовать RegEdit
Falk0ner, вс, 06/07/2008 - 15:34.
Запретить использовать RegEdit Например мы вынесли компонент класса 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:
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;
DelphiWorld 6.0Registry;
Отправить комментарий