请问怎样编程实现锁定注册表和解锁注册表？(50分)

请问怎样编程实现锁定注册表和解锁注册表？

禁止注册表编辑工具
//HKEY_CURRENT_USER/Software/Microsoft/ Windows/CurrentVersion/Policies/System/
中新建DWORD值
DisableRegistryTools，值为1（十六进制）。

unit Unit1;

interface

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

type
; TForm1 = class(TForm)
; ; Disable: TButton;
; ; Enable: TButton;
; ; procedure DisableClick(Sender: TObject);
; ; procedure EnableClick(Sender: TObject);
; private
; ; { Private declarations }
; public
; ; { Public declarations }
; end;

var
; Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DisableClick(Sender: TObject);
var
; Reg: TRegistry;
begin
; Reg := TRegistry.Create;
; try
; ; Reg.RootKey := HKEY_CURRENT_USER;
; ; if Reg.OpenKey('Software/Microsoft/ Windows/CurrentVersion/Policies/System', True) then
; ; begin
; ; ; Reg.WriteInteger('DisableRegistryTools',1);
; ; ; Reg.CloseKey;
; ; end;
; finally
; ; Reg.Free;
; end;
end;


procedure TForm1.EnableClick(Sender: TObject);
var
; Reg: TRegistry;
begin
; Reg := TRegistry.Create;
; try
; ; Reg.RootKey := HKEY_CURRENT_USER;
; ; if Reg.OpenKey('Software/Microsoft/ Windows/CurrentVersion/Policies/System', True) then
; ; begin
; ; ; Reg.WriteInteger('DisableRegistryTools',1);
; ; ; Reg.CloseKey;
; ; end;
; finally
; ; Reg.Free;
; end;
end;
end.

接受答案了.