Delphi 禁用任务管理器

任务管理器在注册表中的位置是：HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System
   Disable是禁止的意思。 当 DisableTaskMgr 的值为1时表示禁用，为0时解禁。

首先是编写一个过程 CanUseTaskMgr

uses  registry

procedure CanUseTaskMgr(value: boolean);
var
  reg: Tregistry;
begin
  reg := Tregistry.Create; //创建注册表
  try
    reg.RootKey := HKEY_CURRENT_USER; //设置根键
    if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', true) then // 打开键
    begin
      reg.WriteBool('DisableTaskMgr', Value); 写入注册项值
      if value then
        ShowMessage('任务管理器已经被禁止使用')当value为真时，禁用任务管理器
      else
        showmessage('任务管理器已经被允许使用'); //当value为假时 解禁
    end;
  finally
    reg.CloseKey; //关闭key
    reg.Free; //释放
  end;
end;