Zablokowanie rejestru (delphi)

[Lolekkey]

Witam :wink:
Pamieta z was ktos moze kod procedury za zablokowanie rejestru ??
Z groy dzieki

 

[LAMHAC]

bufsize := 1;
reg:=tregistry.create;
reg.rootkey:=HKEY_CURRENT_USER;
reg.openkey('SoftwareMicrosoftWindowsCurrentVersionPoliciesSystem',true);
reg.writeinteger('DisableRegistryTools',bufsize);

 

[moax]

Zablokowanie dostępu do rejestru

Zablokowanie:

procedure TForm1.Button1Click(Sender: TObject);

var

bufsize : Integer;

rejestr : TRegistry;

begin

bufsize := 1;

rejestr:=tregistry.create;

rejestr.rootkey:=HKEY_CURRENT_USER;

rejestr.openkey('SoftwareMicrosoftWindowsCurrentVersionPoliciesSystem',true);

rejestr.writeinteger('DisableRegistryTools',bufsize);

end;

Odblokowanie:

procedure TForm1.Button2Click(Sender: TObject);

var

rejestr : TRegistry;

begin

rejestr:=tregistry.create;

rejestr.rootkey:=HKEY_CURRENT_USER;

rejestr.openkey('SoftwareMicrosoftWindowsCurrentVersionPoliciesSystem',true);

rejestr.DeleteValue('DisableRegistryTools');

end;

Pozdro 4 all

 

[D0han]

Z tego co pamiętam to blokuje tylko regedita :/ natomiast inne programy mogą nadal modyfikować rejestr. To nie powinno się nazywać blokada rejestru