Désactiver ctrl alt del en ajoutant une clé dans le registre sans dll

Soyez le premier à donner votre avis sur cette source.

Snippet vu 30 242 fois - Téléchargée 34 fois

Contenu du snippet

Voilà comment désactiver le gestionnaire des tâches en ajoutant simplement une nouvelle clé dans le registre. Je sais que c'est aussi possible de le faire avec une dll et les hook, mais cette manière et beaucoup plus simple. Seul inconvénient, elle ne fonctionne que sous xp.

Source / Exemple :


// désactiver ctrl alt del

procedure TForm1.Button1Click(Sender: TObject);
var Registre:TRegistry;
begin
Registre:=TRegistry.Create;
  try
    Registre.RootKey:=HKEY_CURRENT_USER;
    Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System\', true);
    Registre.WriteString('DisableTaskMgr','1');
    Registre.CloseKey;
    Registre.Free;
  except
    Showmessage('Erreur');
    Registre.Free;
  end;
end;

// réactiver

procedure TForm1.Button2Click(Sender: TObject);
var Registre:TRegistry;
begin
  Registre:=TRegistry.Create;
  Registre.RootKey:=HKEY_CURRENT_USER;
  Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System\',false);
  Registre.DeleteValue('DisableTaskMgr');
  Registre.CloseKey;
  Registre.Free;
end;

A voir également

Ajouter un commentaire

Commentaires

DRJEROME
Messages postés
447
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
il y avait celle là aussi avec un boolean :

http://www.phidels.com/php/forum/forum.php3?forumtable=posts&mode=showpost&postid=83468

drjerome JROD
DRJEROME
Messages postés
447
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
en résumé :

_______________________________________________________________
procedure BloquerGestionnaireDesTaches(bloque: Boolean);
begin
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
OpenKey ('Software\Microsoft\Windows\CurrentVersion\Policies\System',false);

if bloque then
WriteString('DisableTaskMgr', '1')
else
DeleteValue('DisableTaskMgr');

CloseKey;

finally
Free
end;
end;

_______________________________________________________________
Vishnouu
Messages postés
13
Date d'inscription
mardi 17 mai 2005
Statut
Membre
Dernière intervention
13 juillet 2005
-
lol et moi qui l'ai transcrit de vb^^
DRJEROME
Messages postés
447
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
bââh...c'est de toute manière +/- la même chose, je n'ai pas regardé de près mais je pense qu'en assembleur nos 2 codes sont kif-kif ;)
cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
23 -
Question : ce code fonctionne-t-il autrement qu'avec des droits d'administrateurs ?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.