Unlock Tool: CMD und Taskmanager sperren/entsperren

[DelphiSecurity]

Hallo mal wieder!

Ich bin momentan dabei ein Unlock Tool v2.0 zu programmieren.
Unlock Tool v1.0 habe ich mal (als mir langweilig war ) programmiert.

Dort konnte man die CMD sperren/entsperren. Unter XP lief es genial (auch auf Windows Server).
Aber jetzt auf -> Windows 7 Professional 32bit <- funtioniert der Code nicht mehr.

Delphi-Quellcode:

procedure TFormM.CMDLockSClick(Sender: TObject); // CMD is locked Bat-funktion is unlocked
begin
  CMD:= TRegistry.Create;
  try
    CMD.RootKey:= HKEY_CURRENT_USER;
    CMD.OpenKey('Software\Policies\Micrsoft\Windows\System', true);
    CMD.WriteInteger('DisableCMD', 1);
    Log.Lines.Add('CMD Lock (.bat ok) => Success!')
  except
    Log.Lines.Add('CMD Lock (.bat ok) => No Success!');
  end;
  CMD.Free;
end;

procedure TFormM.CMDLockSSClick(Sender: TObject); // CMD is locked Bat-funktion is locked
begin
  CMD:= TRegistry.Create;
  try
    CMD.RootKey:= HKEY_CURRENT_USER;
    CMD.OpenKey('Software\Policies\Micrsoft\Windows\System', true);
    CMD.WriteInteger('DisableCMD', 2);
    Log.Lines.Add('CMD Lock (.bat no) => Success!')
  except
    Log.Lines.Add('CMD Lock (.bat no) => No Success!');
  end;
  CMD.Free;
end;

procedure TFormM.CMDUnlockSClick(Sender: TObject); // CMD is unlocked
begin
  CMD:= TRegistry.Create;
  try
    CMD.RootKey:= HKEY_CURRENT_USER;
    CMD.OpenKey('Software\Policies\Micrsoft\Windows\System', true);
    CMD.WriteInteger('DisableCMD', 0);
    Log.Lines.Add('CMD Unlock => Success!')
  except
    Log.Lines.Add('CMD Unlock => No Success!');
  end;
  CMD.Free;
end;

Nur bei Admin funktioniert es, aber das ist nicht der Sinn.
Ich brauche nur die richtigen Reg-Schlüssel.
Für den Taskmanager wäre auch schön.

"Unlock Tool v1.0" ist im Anhang! Passwort: helper

Schon mal DANKE!