Sep 30, 2017 12:37 PM
(This post was last modified: Oct 7, 2017 08:18 PM by Xogg.)
Code
Procedure TaskManager(Disable: boolean);
Var
R: TRegistry;
begin
// Written By Dexuh
if Disable then
begin
R := TRegistry.Create;
R.RootKey := HKEY_CURRENT_USER;
if R.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True) then R.WriteString('DisableTaskMgr', '1');
end
else
Begin
R := TRegistry.Create;
R.RootKey := HKEY_CURRENT_USER;
if R.OpenKey ('Software\Microsoft\Windows\CurrentVersion\Policies\System', True) then R.DeleteValue('DisableTaskMgr');
End;
end;How to use this procedure
Be sure to add Registry to your uses statements.
Disable:
Code
TaskManager(True);Enable:
Code
TaskManager(False);

![[Image: F2G97kn.png]](https://i.imgur.com/F2G97kn.png)