Block Console (CMD)

uses Registry


// Konsole wird blockiert, aber nicht die Funktionen :
procedure TForm1.Button1Click(Sender: TObject);
var CMD : TRegistry;
begin
  CMD:= TRegistry.Create;
  try
    CMD.RootKey:= HKEY_CURRENT_USER;
    CMD.OpenKey('Software\Policies\Micrsoft\Windows\System', true);
    CMD.WriteInteger('DisableCMD', 1);
    Memo1.Lines.Add('CMDLock (.bat ok) => Success')
  except
    Memo1.Lines.Add('CMDLock (.bat ok) => No Success');
  end;
  CMD.Free;
end;


// Konsole wird komplett blockiert :
procedure TForm1.Button2Click(Sender: TObject);
var CMD : TRegistry;
begin
  CMD:= TRegistry.Create;
  try
    CMD.RootKey:= HKEY_CURRENT_USER;
    CMD.OpenKey('Software\Policies\Micrsoft\Windows\System', true);
    CMD.WriteInteger('DisableCMD', 2);
    Memo1.Lines.Add('CMDLock (.bat no) => Success')
  except
    Memo1.Lines.Add('CMDLock (.bat no) => No Success');
  end;
  CMD.Free;
end;

// Konsole wird wieder freigegeben :
procedure TForm1.Button3Click(Sender: TObject);
var CMD : TRegistry;
begin
  CMD:= TRegistry.Create;
  try
    CMD.RootKey:= HKEY_CURRENT_USER;
    CMD.OpenKey('Software\Policies\Micrsoft\Windows\System', true);
    CMD.WriteInteger('DisableCMD', 0);
    Memo1.Lines.Add('CMDUnlock => Success')
  except
    Memo1.Lines.Add('CMDUnlock => No Success');
  end;
  CMD.Free;
end;