Home Upgrade Search Memberlist Extras Hacker Tools Award Goals Help Wiki Contact

Delphi 

Disable And Enable Task Manager

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]
If I remember correctly, there is a very similar key for disabling/enabling cmd.exe and regedit.exe
(Sep 30, 2017 03:59 PM)Volty Wrote:  If I remember correctly, there is a very similar key for disabling/enabling cmd.exe and regedit.exe

I think there is.
[Image: F2G97kn.png]


Possibly Related Threads...
Thread / Author Replies Views Last Post
[Help] by ossiHQApr 12, 2021 01:20 PM 1 149 Apr 12, 2021 01:20 PM
Last Post: Sajuuk
[Delphi] by gz_hackMar 8, 2019 08:45 PM 8 554 Mar 8, 2019 08:45 PM
Last Post: gz_hack
by PDGLOBALDec 12, 2017 12:59 PM 9 1,133 Dec 12, 2017 12:59 PM
Last Post: Lucifer211