Проблемка с блокировкой TaskMgr

[artemavd]

Использую код с DelphiWorld для блокировки Диспетчера задач. Вот исходный код:

procedure DisableTaskMgr(Disable: Boolean);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software', True);
  reg.OpenKey('Microsoft', True);
  reg.OpenKey('Windows', True);
  reg.OpenKey('CurrentVersion', True);
  reg.OpenKey('Policies', True);
  reg.OpenKey('System', True);
  if Disable then
    reg.WriteString('DisableTaskMgr', '1') //блокиреум
  else
    reg.WriteString('DisableTaskMgr', '0'); //разблокируем
  reg.CloseKey;
end;

Я переделал его немного под свои нужды:

procedure DisableTaskMgr(Disable: Boolean);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software', True);
  reg.OpenKey('Microsoft', True);
  reg.OpenKey('Windows', True);
  reg.OpenKey('CurrentVersion', True);
  reg.OpenKey('Policies', True);
  reg.OpenKey('System', True);
end;

И на форме у меня два RadioButton-a: блокировать(RadioButton1) и разблокировать(RadioButton2). В первом RadioButton1 написал следующее:

procedure TForm1.RadioButton1Click(Sender: TObject);
var
 reg: TRegistry;
 Disable: Boolean;
begin
 if Disable then
 begin
  if Form1.RadioButton1.Checked = True then
   begin
    reg.WriteString('DisableTaskMgr','1');
   end;
 end;
end;

Но проблема вот в чем. Когда я запускаю программу и нажимаю на этот RadioButton1, то у меня появляется ошибка: "Failed to set data for 'DisableTaskMgr' ". Полагаю, что ошибка означает, что не удается установить данный параметр. Может это потому что у меня вместо стандартного Диспетчера задач стоит AnVir Task, который заменил мне стандартный? Пробовал в самом реестре найти по пути, который в коде, этот параметр, но не нашел.

[Kotofff]

А почему бы не так :

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  if Form1.RadioButton1.Checked then
   begin
    DisableTaskMgr(true);
   end;
end;

В твоей процедуре Disable всегда будет false, т.к. она внутренняя переменная процедуры RadioButton1Click и при каждом входе в процедуру она будет инициироваться в false. Это раз.
Второе, в своем коде перед

reg.WriteString('DisableTaskMgr','1');

добавь :

  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software', True);
  reg.OpenKey('Microsoft', True);
  reg.OpenKey('Windows', True);
  reg.OpenKey('CurrentVersion', True);
  reg.OpenKey('Policies', True);
  reg.OpenKey('System', True);

ведь перед тем как записать в реестр нужно ведь указать полностью куда писать нужно.