procedure DisableTaskMgr(Disable: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software', True);
reg.OpenKey('Microsoft', True);
reg.OpenKey('Windows', True);
reg.OpenKey('CurrentVersion', True);
reg.OpenKey('Policies', True);
reg.OpenKey('System', True);
if Disable then
reg.WriteString('DisableTaskMgr', '1') //غلق
else
reg.WriteString('DisableTaskMgr', '0'); //فتح
reg.CloseKey;
end;