禁用任务管理器

Question

各位大侠，在Delphi中，如何实现当一程序启动后，任务管理器禁用！  谢谢了

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyReg:=TRegistry.Create;
  Myreg.RootKey:=HKEY_CURRENT_USER;
  Myreg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',true);
  Myreg.WriteInteger('DisableTaskmgr',0); //启用{ Myreg.WriteInteger('DisableTaskmgr',1); //禁用}  Myreg.Free;
end;

Answer 2

这种禁用方法虽然不太专业，但也能实现了。直接禁用Ctrl＋Alt＋Del组合建来得比较爽！

Answer 3

这种禁用方法虽然不太专业，但也能实现了。直接禁用Ctrl＋Alt＋Del组合建来得比较爽！
~~~~~~~~~~~~~~~~~~~~~
Ctrl + Shift + Esc是任务管理器的另外，如果仅仅禁用Ctrl + Alt + Del 或Ctrl + Shift + Esc
用户可以直接找到C:\WINDOWS\system32\taskmgr.exe，运行即可可以用一Timer或一个线程，每隔1秒搜索一下是否已经打开了任务管理器，如果打开了则把它关闭，这样来得才真爽了

Answer 4

Reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',true);
reg.WriteInteger('DisableTaskmgr',1); //禁用
reg.Free;

Answer 5

修改注册表的方法有点问题
1、当本机有某些杀毒软件（如瑞星），会弹出是否修改注册表的提示
2、有“Failed to set data for 'DisableTaskmgr'”的错误提示我觉得用Timer刷的方式比较好。