begin
   with
    Tregistry.Create do
    try
    RootKey:=HKEY_CURRENT_USER;
    openkey(k,true);
    writeInteger('DisableRegistryTools',1);
    closeKey;
    finally
    free;
    end;
  end;  //禁止使用注册表
then begin
    with
    Tregistry.Create do
    try
    RootKey:=HKEY_CURRENT_USER;
    openkey(kk,true);
    writeInteger('NoSetFolders',1);
    closeKey;
    finally
    free;
    end;
  end;//禁止使用控制面版