Delphi：在 Windows 7 中禁用 TaskManager

Question

我发现这段代码用于禁用Windows XP中的任务管理器。它可以工作 :)

但它也可以在 Windows 7 中工作吗？注册表路径是一样的，我已经检查过了。但也许有一些限制！？

提前致谢！

Answer 1

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

• HKLM\Software\Policies
• HKLM\Software\Microsoft\Windows\CurrentVersion\Policies
• HKCU\Software\Policies
• 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;

相当糟糕。首先，根本不需要 begin 和 end 部分，因为命令 WriteInteger... 是“一行代码” ”。其次，为什么不直接写而不是YesNo的值呢？

人们真的应该将代码写成这样，

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

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