任务管理器在注册表中的位置是: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;