屏蔽“任务管理器”

最新推荐文章于 2024-04-20 19:08:40 发布

转载最新推荐文章于 2024-04-20 19:08:40 发布 · 724 阅读

文章标签：

#任务 #user

Delphi 专栏收录该内容

20 篇文章

订阅专栏

此博客提供了适用于Win NT/2K/XP系统的代码，用于屏蔽或启用“任务管理器”。通过定义DisableTaskmgr过程，根据传入的布尔参数Key，利用注册表操作来实现相应功能。若Key为True则屏蔽，为False则使任务管理器可用。

//适用于Win NT/2K/XP,

//参数Key为True,屏蔽“任务管理器”；为False,“任务管理器”可用

//使用方法：

//DisableTaskmgr(True);

procedure DisableTaskmgr(Key: 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
 if Key then
 Reg.WriteString('DisableTaskMgr','1')
 else
 Reg.WriteInteger('DisableTaskMgr',0);
 Reg.CloseKey;
 end;
except
 Reg.Free;
end;
end;