// Suitable for WIN NT / 2K / XP, // Parameter Key to True, Shield "Task Manager"; for False, "Task Manager" available // How to use: // disabletaskmgr (true); Procedure Disabletaskmgr (Key : Boolean); Var Reg: TRegistry; Begin Reg: = TRegistry.Create; try Reg.RootKey: = HKEY_CURRENT_USER; if Reg.OpenKey ( '/ Software / Microsoft / Windows / CurrentVersion / Policies / System', True) then meaning; Reg.free; end;
