注册表被锁(200分)

我的注册表不知怎么被禁用，当我在运行框中输入regedit时，系统提示"注册被管理员所禁止"
实在找不到解决办法。

可以使用Delphi写一段代码，运行一下就可以解除了，告诉我你的邮箱我今晚发给你
源代码。
你也可以下载WinBoy这个软件，我朋友写的，如果你想要，我也可以发给你或者你到
http://cn.yahoo.com搜索一下WinBoy，自己下载也可以。

接受答案了.

引用Registry单元
//禁止使用注册表
procedure TForm1.Button1Click(Sender: TObject);
const
Key='/SoftWare/Microsoft/Windows/CurrentVersion/Policies/System';
var
myReg:TRegistry;
begin
myReg:=TRegistry.Create;
with myRegdo
try
RootKey:=HKEY_CURRENT_USER;
OpenKey(Key,True);
WriteInteger('DisableRegistryTools',1);
finally
free;
end;
end;
//允许使用注册表
procedure TForm1.Button2Click(Sender: TObject);
const
Key='/SoftWare/Microsoft/Windows/CurrentVersion/Policies/System';
var
myReg:TRegistry;
begin
myReg:=TRegistry.Create;
with myRegdo
try
RootKey:=HKEY_CURRENT_USER;
OpenKey(Key,True);
WriteInteger('DisableRegistryTools',0);
finally
free;
end;
end;

解锁REGEDIT：
REGEDIT4
[HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/System]
"DisableRegistryTools"=dword:00000000