[MrZerO]

всем привет вообщем есть код:

Код:

var
  reg: TRegistry;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True);
  reg.WriteString('DisableTaskMgr','');
  reg.CloseKey;
  reg.Free;
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer', True);
  reg.WriteString('NoViewOnDrive','a');
  reg.CloseKey;
  reg.Free;
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer', True);
  reg.WriteString('RestrictRun','a');
  reg.CloseKey;
  reg.Free;
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer', True);
  reg.WriteString('NoClose','a');
  reg.CloseKey;
  reg.Free;
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('Software\Policies\Microsoft\Windows\System\DisableCMD', True);
  reg.WriteString('DisableCMD','a');
  reg.CloseKey;
  reg.Free;
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('software\Microsoft\Windows\CurrentVersion\Policies\system\DisableRegistryTools', True);
  reg.WriteString('DisableRegistryTools','a');
  reg.CloseKey;
  reg.Free;

lmikle: Предупреждение. Оформляйте код с соотв. с правилами форума.

но он не работает(данный код разблокирует некоторые функции реестра)в чем ошибка?и как данный код на одну кнопку уместить?

[Alegun]

Пробелов и слешей очень много просто Да, и зачем так грубо использовать бедный TRegistry-то, - шесть раз подряд за цикл выполнять Create..Free, когда можно сделать вот так

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
with TRegistry.Create do 
try
  RootKey:=HKEY_CURRENT_USER;
  OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True);
  WriteString('DisableTaskMgr','');
  CloseKey;

  OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', True);
  WriteString('NoViewOnDrive','a');
  WriteString('RestrictRun','a');
  WriteString('NoClose','a');
  CloseKey;

  OpenKey('Software\Policies\Microsoft\Windows\System\DisableCMD', True);
  WriteString('DisableCMD','a');
  CloseKey;

  OpenKey('software\Microsoft\Windows\CurrentVersion\Policies\system\DisableRegistryTools', True);
  WriteString('DisableRegistryTools','a');
  CloseKey;

finally
   Free;
end; {with}
end;