Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Отключить редактор системного реестра
Например мы вынесли компонент класса TCheckBox, назвали его "Использовать редактор системного реестра". Задача такова: когда флажок установлен пользователь может воспользоваться редактором реестра, когда не установлен - соответственно, не может!!!
Что нужно для осуществления этой задачи? Нужно воспользоваться ключом
HKEY_CURRENT_USERSoftwareMicrosoft WindowsCurrentVersionPoliciesSystem
создать в нём параметр:
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('SoftwareMicrosoftWindowsCurrentVersionPoliciesSystem', true);
if CheckBox1.Checked then
WriteInteger('DisableRegistryTools', 0)
else
WriteInteger('DisableRegistryTools', 1);
CloseKey;
Free;
end;
end;
Не забудьте в области uses объявить модуль Registry:
uses Registry;