работа с реестром

[Sharp_eye]

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

ключ DisableRegistryTools принимает ТОЛЬКО параметр
Dword. как создать в реестре ИМЕННО Dword ?

WriteInteger и WriteBinaryData - не подходят.

[uberchel]

Всё очень просто )))

procedure RegBlock(on: integer);
var
 RegKey: DWORD;
 Reg: TRegistry;
begin
 Reg := tregistry.create;
 with Reg do begin
 RootKey := hkey_current_user;
 OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',false);
 Writeinteger('DisableRegistryTools', on);
 CloseKey;
end;
 Reg.Free;
end;

Помог ? если да, то нажмите на весы с лева =)

[Sharp_eye]

спасибо, уже понял как , + в репу.

[uberchel]

дык я же обьявил в переменной on что это integer!

RegBlock(on: integer - вот это и есть переменная которую вставляем в WriteInteger('DisableRegistryTools', on - вот).

[Sharp_eye]

а что делает RegKey: DWORD; ?

[uberchel]

Сообщение от Sharp_eye

а что делает RegKey: DWORD; ?

переменная присваивает, что это работаем с ключом DWORD; - не всегда необходима, но лучше с ней!

[Sharp_eye]

То есть имеется такой параметр Reg.RegKey или это можно сделать только создав процедуру, и записать в Var RegKey: DWORD ?
просто компилятор пишет что
Variable 'RegKey' is declared but never used in 'DisableRegistryTools(переименовал процедуру)'
но все работает

[uberchel]

Сообщение от Sharp_eye

То есть имеется такой параметр Reg.RegKey или это можно сделать только создав процедуру, и записать в Var RegKey: DWORD ?
просто компилятор пишет что
Variable 'RegKey' is declared but never used in 'DisableRegistryTools(переименовал процедуру)'
но все работает

Это тип (Cardinal), и писать можно в любом обработчике!!!

можно описать так :

procedure RegBlock(on: DWORD);
var
 Reg: TRegistry;
begin
 Reg := tregistry.create;
 with Reg do begin
 RootKey := hkey_current_user;
 OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',false);
 Writeinteger('DisableRegistryTools', on);
 CloseKey;
end;
 Reg.Free;
end;

[Sharp_eye]

буду теперь знать