Désactiver: Control + Alt + delete ou Empêcer la fermeture de l'application même
YPMN
Messages postés98Date d'inscriptionvendredi 4 juin 2004StatutMembreDernière intervention20 août 2012
-
30 juin 2005 à 21:34
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019
-
3 juil. 2005 à 19:33
Salut!
Je reconnaissant pour le travail titanesque qu'abattent jours et nuits ceux qui sont demontre leur sens du véritable partage ...
en lisant mon problème, n'allez pas vite à me renvoyer sur tel ou tel autre lien car, j'en ai connsulté autant qui ne me répondent exactement...
Soyons explicites, claire et net:
Dans mon application, je veux qu'à l'affichage du form1, que les touches Control + Alt + Delete soient désactivés de façon à ne pas permettre à la fermeture de cette dernière pa la combinaison control + alt + delete, soit que même le gestionnaire des tâches soit incapable de fermer toute mon application...
S'il vous plait, si je peut avoir le code répondant à cette proccupation car, mes yeux sont fatugués avec des liens nuls.
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 30 juin 2005 à 22:50
Bloquer CTRL-ALT-SUPPR ne sert à rien, le gestionnaires des tâches se déclenche très bien à la souris.
Bloquer le gestionnaires des tâches n'est pas plus utile, on trouve partout des progs listant les processus et les fermant.
La seule chose sérieuse est d'empêcher ton processus d'être listé mais il faut pour cela hooker ZwQuerySystemInformation, ce qui me semble être totalement hors de portée d'un prog VB.
YPMN
Messages postés98Date d'inscriptionvendredi 4 juin 2004StatutMembreDernière intervention20 août 2012 3 juil. 2005 à 19:17
Mais puisqu'en exécutant vos codes je n'arrive au resultat escompté, voilà ce que j'ai trouvé en fouillant...:
'dans un module
Public Sub RemoveProgramFromList()
Dim lngProcessID As Long
Dim lngReturn As Long
lngProcessID = GetCurrentProcessId()
lngReturn = RegisterServiceProcess(PID, RSP_SIMPLE_SERVICE)
End Sub
'dans la form
call removeprogramfromlist 'pour enlever de la liste
en l'éxécutant, cela me renvoie ce message :
procedure sub ou fonction non défini (tout en selectionnant GetcurrentProcessid() )
Qui puise m'expliquer, comment utiliser ce code exactement ???