如何通过编程锁住注册表

Question

请大家指点谢谢！（目的是为了防止客服端用户随意修改注册表的信息）

Answer 1

uses Registry;procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
begin
   try
     reg:= TRegistry.Create;
     reg.RootKey:= HKEY_CURRENT_USER;
     if reg.OpenKey('software\Microsoft\Windows\Policies\System',true) then
     begin
         reg.WriteInteger('DisableRegistryTools',1);//锁定
     end;                                           //解锁 为0 
   finally
       reg.Free;
   end;
end;

Answer 2

to: happyggy(Delphi<-&&->java) ( ) 信誉：100    Blog 
执行上面的代码后，好象还是可以通过运行来打开regedit并修改里面的设置。

Answer 3

我试过了没有用的，我用的是windows2000。

Answer 4

if reg.OpenKey('software\Microsoft\Windows\Policies\System',true) then
这个地方写错了
改成：
if reg.OpenKey(Software\Microsoft\Windows\CurrentVersion\Policies\System',true) then
就可以了