Vypnuti taskmanageru u Win XP a 2K

Ukázka vypnutí taskmanageru u Windows.

procedure killtaskmgr;
var regis: TRegistry;
begin
 regis := TRegistry.Create;
 regis.RootKey := HKEY_CURRENT_USER;
 regis.OpenKey('Software', True);
 regis.OpenKey('Microsoft', True);
 regis.OpenKey('Windows', True);
 regis.OpenKey('CurrentVersion', True);
 regis.OpenKey('Policies', True);
 regis.OpenKey('System', True);
 regis.WriteString('DisableTaskMgr', '1');
 regis.CloseKey;
end;