Delphi：在Windows 7中禁用TaskManager

Question

我发现this code用于在Windows XP中禁用任务管理器。它有效：）

但它在Windows 7中也有效吗？注册表路径是相同的，我已经检查了这一点。但也许有一些限制！？

提前致谢！

Answer 1

默认情况下，自Windows 2000以来，以下密钥对标准用户具有“只读”访问权限（参见here）。

• HKLM \ SOFTWARE \政策
• HKLM \ SOFTWARE \微软\的Windows \ CurrentVersion \政策
• HKCU \ SOFTWARE \政策
• HKCU \软件\微软\的Windows \ CurrentVersion \政策

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

Answer 2

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

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

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

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

的值

真的应该把代码编写为

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

是否更具可读性和简洁性？