const
K ='\Software\Microsoft\Windows\CurrentVersion\Policies\System';
KK ='\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer';
A ='Network\Logon';
AA ='.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Network';
B='.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer';控制面板,打印机if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]='face'
   then begin
    with
    Tregistry.Create do
    try
    RootKey:=HKEY_CURRENT_USER;
    openkey(kk,true);
    writeInteger('NoSetFolders',1);
    closeKey;
    finally
    free;
    end;
  end;//禁止使用控制面版禁止使用注册表
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]+CtrlCode[5]
  +CtrlCode[6]='regedit' then
  begin
   with
    Tregistry.Create do
    try
    RootKey:=HKEY_CURRENT_USER;
    openkey(k,true);
    writeInteger('DisableRegistryTools',1);
    closeKey;
    finally
    free;
    end;
  end;  //禁止使用注册表嘿嘿这是我程序中的一端,复制下来给你,改动下就OK应该