Delphi 禁用任务管理器

首先是编写一个过程 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;

单击button1时，将true赋值给 value 实现禁用，
单击button2时，将false赋给value，实现解禁；
我们来运行一下

现在可以打开任务管理器
看到了吧，不能运行任务管理器了
看，禁用时DisableTaskMgr的值已经边成1了，
我们再来解禁
现在又可以用了，
DisableTaskMgr的值变成了0
这个是我设置的皮肤，网上教程有的是，我就不多说了，
好，教程结束