Désactiver clavier
cs_ofi
Messages postés
4
Date d'inscription
samedi 11 janvier 2003
Statut
Membre
Dernière intervention
10 février 2012
-
22 janv. 2003 à 18:39
josswel Messages postés 67 Date d'inscription lundi 23 mai 2005 Statut Membre Dernière intervention 3 juin 2009 - 10 juin 2005 à 10:22
josswel Messages postés 67 Date d'inscription lundi 23 mai 2005 Statut Membre Dernière intervention 3 juin 2009 - 10 juin 2005 à 10:22
A voir également:
- Delphi setwindowshookex
- Symbole flash clavier - Forum Flash
- Clavier et déplacement de symbole ✓ - Forum Flash
- Python détecter touche clavier - Forum Python
- Desactiver combox ✓ - Forum Java
- Désactiver la combox - Forum Visual Basic 6
8 réponses
Hy0Ga
Messages postés
7
Date d'inscription
lundi 4 novembre 2002
Statut
Membre
Dernière intervention
22 janvier 2003
22 janv. 2003 à 19:01
22 janv. 2003 à 19:01
Ben moi je créerai un hook d'interception des messages clavier et je supprimerai le message si la touche est ALT+CTRL+DEL ou ALT+TAB
Pour cela il te faut créer une dll contenat une procedure de style KeybProc ou tu supprime le message windows
puis tu crée un soft qui lance le hook par un SetWindowsHookEx
tu dois charger la dll dynamiquement avec LoadLibrary
puis prendre l'adresse memoire avec GetProcAddress.
Si tu veux que je t'explique en détails, dis moi et je te ferais un example
A+
-----------------------------------
Que la force soit avec nous -
-----------------------------------
Pour cela il te faut créer une dll contenat une procedure de style KeybProc ou tu supprime le message windows
puis tu crée un soft qui lance le hook par un SetWindowsHookEx
tu dois charger la dll dynamiquement avec LoadLibrary
puis prendre l'adresse memoire avec GetProcAddress.
Si tu veux que je t'explique en détails, dis moi et je te ferais un example
A+
-----------------------------------
Que la force soit avec nous -
-----------------------------------
corole3
Messages postés
39
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
4 janvier 2010
27 août 2004 à 20:06
27 août 2004 à 20:06
Corole3 :approve)
Salut,
Salut,
Si tu veux que je t'explique en détails, dis moi et je te ferais un examplemoi ça m'interreserait bien d'avoir un exemple de code s'il te plait
ni69
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
12
6 déc. 2004 à 22:25
6 déc. 2004 à 22:25
Je souhaiterais aussi un exemple.....
Merci
@+
Bonne Prog'
Nico
Merci
@+
Bonne Prog'
Nico
josswel
Messages postés
67
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
3 juin 2009
9 juin 2005 à 10:14
9 juin 2005 à 10:14
Salut les dev. pro.
Si j'ai bien appri ce que j'ai vue sur ce site et que j'ai déjà donner à" taye 78 " je vous donne ceci
Alors dans la declaration : " Var " sous Form1 : TForm tu ajoutes
HookClavier : HHook ;
function HookClavierCallBack ( Code : Integer
; WParam : Word
; LParam : LongInt
) : LongInt ; stdcall ;
Et puis dans implementation tu ajoutes :
type
// Structure pour recueillir les informations clavier
PHookClavierInfo = ^THookClavierInfo ;
THookClavierInfo = record
vkCode : DWORD ;
scanCode : DWORD ;
flags : DWORD ;
time : DWORD ;
dwExtraInfo : PULONG ;
end ;
// La fonction d'interception du hokk clavier
function HookClavierCallBack ( Code : Integer
; WParam : Word
; LParam : LongInt
) : LongInt ; stdcall ;
var
Infos : PHookClavierInfo ;
begin
Result :0 ; //0 pas d'inhibition des touches
if ( Code = HC_ACTION ) then
begin
Infos := PHookClavierInfo( LParam );
case WParam of
WM_KEYDOWN : // Interception des touches appuyées
begin
case ( Infos^.vkCode ) of
VK_LWIN ,
VK_RWIN : Result :1 ; //1 inhibition des touches concernées
end ;
end ;
end ;
end ;
end ;
dans ton form create tu mets :
HookClavier : = SetWindowsHookEx( WH_KEYBOARD_LL
, @HookClavierCallBack
, HInstance
, 0
) ;
pour desactiver le gestionnaire de tache tu as le code suivant :
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 Fatal 101 : Contacte
votre adminitrateur réseau ou vorte developpeur informatique ');
Registre.Free;
end;
pour le reactive tu as :
Registre:=TRegistry.Create;
Registre.RootKey:=HKEY_CURRENT_USER;
Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System\',false);
Registre.DeleteValue('DisableTaskMgr');
Registre.CloseKey;
Registre.Free;
d'autre part tu as
SystemParametersInfo(SPI_SCREENSAVERRUNNING , Ord(False),nil,0) ;
pour desactiver le bouton demarrer et pour le reactiver tu as
SystemParametersInfo(SPI_SCREENSAVERRUNNING , Ord(Frue),nil,0) ;
Le seul hic c'est que le touche de raccourci Alt Tab fonctionne toujours Quelqu'un parmi vous saurais comment faire ?
,j'espere que j'ai rien oublier
Alors bonne prog
Si j'ai bien appri ce que j'ai vue sur ce site et que j'ai déjà donner à" taye 78 " je vous donne ceci
Alors dans la declaration : " Var " sous Form1 : TForm tu ajoutes
HookClavier : HHook ;
function HookClavierCallBack ( Code : Integer
; WParam : Word
; LParam : LongInt
) : LongInt ; stdcall ;
Et puis dans implementation tu ajoutes :
type
// Structure pour recueillir les informations clavier
PHookClavierInfo = ^THookClavierInfo ;
THookClavierInfo = record
vkCode : DWORD ;
scanCode : DWORD ;
flags : DWORD ;
time : DWORD ;
dwExtraInfo : PULONG ;
end ;
// La fonction d'interception du hokk clavier
function HookClavierCallBack ( Code : Integer
; WParam : Word
; LParam : LongInt
) : LongInt ; stdcall ;
var
Infos : PHookClavierInfo ;
begin
Result :0 ; //0 pas d'inhibition des touches
if ( Code = HC_ACTION ) then
begin
Infos := PHookClavierInfo( LParam );
case WParam of
WM_KEYDOWN : // Interception des touches appuyées
begin
case ( Infos^.vkCode ) of
VK_LWIN ,
VK_RWIN : Result :1 ; //1 inhibition des touches concernées
end ;
end ;
end ;
end ;
end ;
dans ton form create tu mets :
HookClavier : = SetWindowsHookEx( WH_KEYBOARD_LL
, @HookClavierCallBack
, HInstance
, 0
) ;
pour desactiver le gestionnaire de tache tu as le code suivant :
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 Fatal 101 : Contacte
votre adminitrateur réseau ou vorte developpeur informatique ');
Registre.Free;
end;
pour le reactive tu as :
Registre:=TRegistry.Create;
Registre.RootKey:=HKEY_CURRENT_USER;
Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System\',false);
Registre.DeleteValue('DisableTaskMgr');
Registre.CloseKey;
Registre.Free;
d'autre part tu as
SystemParametersInfo(SPI_SCREENSAVERRUNNING , Ord(False),nil,0) ;
pour desactiver le bouton demarrer et pour le reactiver tu as
SystemParametersInfo(SPI_SCREENSAVERRUNNING , Ord(Frue),nil,0) ;
Le seul hic c'est que le touche de raccourci Alt Tab fonctionne toujours Quelqu'un parmi vous saurais comment faire ?
,j'espere que j'ai rien oublier
Alors bonne prog
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
josswel
Messages postés
67
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
3 juin 2009
9 juin 2005 à 10:15
9 juin 2005 à 10:15
oups n'oubliez pas de declarer Registry dans la partie declaration merci
josswel
Messages postés
67
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
3 juin 2009
9 juin 2005 à 11:40
9 juin 2005 à 11:40
oups tu rajoutes Registry dans la partie declaration intiale
LE second hic c'est que le touche Tab + Esc marche aussi Alors aidez nous
LE second hic c'est que le touche Tab + Esc marche aussi Alors aidez nous
josswel
Messages postés
67
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
3 juin 2009
10 juin 2005 à 10:20
10 juin 2005 à 10:20
je le sais ni69 et je l'ai prise labas
josswel
Messages postés
67
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
3 juin 2009
10 juin 2005 à 10:22
10 juin 2005 à 10:22
Mais pourrai tu voir le Probleme que je pose apres le programme ?
