delphi - Delphi：在 Windows 7 中禁用任务管理器

Question

我在 Windows XP 中找到了禁用任务管理器的代码。有用 ：）

但它也适用于 Windows 7 吗？注册表路径是一样的，我已经检查过了。但也许有一些限制！？

提前致谢！

Answer 1

默认情况下，自 Windows 2000 起，以下键对标准用户具有“只读”访问权限（请参阅此处）。

• HKLM\软件\政策
• HKLM\Software\Microsoft\Windows\CurrentVersion\Policies
• HKCU\软件\政策
• HKCU\Software\Microsoft\Windows\CurrentVersion\Policies

因此，您的应用程序需要具有管理权限才能写入这些密钥。

Answer 2

是的，它也适用于 Windows 7。我以提升的权限（Windows 7 Home Premium）运行程序，之后任务管理器不再可用。

但是，作为旁注，我不得不说代码

case YesNo of
  False:
    begin
      WriteInteger('DisableTaskMgr',1) ;
    end;
  True:
    begin
      WriteInteger('DisableTaskMgr',0) ;
    end;
end;

是相当可怕的。首先，根本不需要beginandend部分，因为命令WriteInteger...是“单行”的。其次，为什么不只写 的值not YesNo？

真的应该将代码编写为

WriteInteger('DisableTaskMgr', byte(not YesNo));

这不是更具可读性和简洁性吗？