Discussion :

[cincap]

Bonsoir à toutes et à tous,

Encore un hook !, voici ma question, est t'il possible de bloquer la combinaison des touches Alt+Shift+Numlock ?

J'ai déjà tout vu sur le Hook, et j'ai testé toutes les combinaisons comme Alt+Ctrl+Delete, Alt+Tab etc..

Cela fonctionne mais pas pour la combinaison des touches Alt+Shift+Numlock.

Ce sont peut être des touches protégées ?

Si quelqu'un avait une idée.

@+,

Cincap

[Montor]

voici un exemple pour intercepter le LOCKNUM a toi de l'adapter pour ton cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  Form1: TForm1;
  HookID: HHook;
implementation
{$R *.dfm}
function KeyboardProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
begin
  if nCode < 0 then
      Result := CallNextHookEx(HookID, nCode, wParam, lParam)
  else
  case wParam of
    VK_NUMLOCK: Result := HC_SKIP;
        //WM_xx:
        // WM_xx:
   else
          Result := CallNextHookEx(HookID, nCode, wParam, lParam);
   end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   HookID := SetWindowsHookEx(WH_KEYBOARD, KeyboardProc, 0, GetCurrentThreadId());
end;

[cincap]

Bonjour à toutes et à tous,

@ Zutatous, merci de ta réponse, j'arrive bien à intercepter les touches mais pas de bloquer au moins une !

J'avais une autre fonction qui est sensiblement la même :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
function KeyboardProc(nCode: Integer; wParam: Longint; lParam: Longint): Longint; stdcall;
var IsAltPressed, IsCtrlPressed, IsShiftPressed: Boolean;
begin
  if ((lParam and (1 shl 29)) <> 0) then
    IsAltPressed := True
  else
    IsAltPressed := False;
  if ((GetKeyState(VK_CONTROL) and (1 shl 15)) <> 0) then begin
    IsCtrlPressed := True ;
    showmessage('Ok touche Ctrl pressée')
    end
  else
    IsCtrlPressed := False;
  if ((GetKeyState(VK_SHIFT) and (1 shl 15)) <> 0) then begin
    IsShiftPressed := true ;
    showmessage('Ok touche Shift pressée')
    end
  else
    IsShiftPressed := False;
  if ((GetKeyState(VK_MENU) and (1 shl 15)) <> 0) then begin
    IsCtrlPressed := True ;
    showmessage('Ok touche Alt pressée')
    end
  else
    IsCtrlPressed := False;
  if ((GetKeyState(VK_NUMLOCK) and (1 shl 15)) <> 0) then begin
    IsCtrlPressed := True ;
    showmessage('Ok touche NumLock pressée')
    end
  else
    IsCtrlPressed := False;
  if lParam > 0 then Shift := IsShiftPressed ;
  Result := CallNextHookEx(KeyboardHook, nCode, wParam, lParam);
end;

A ce stade, il manque le blocage par contre la reconnaissance de l'appui sur les touches voulues est ok

@+,

Cincap

[Andnotor]

Il ne faut simplement pas appeler CallNextHookEx si tes 3 touches sont pressées.

[cincap]

@ AndNotOr, merci de ta réponse, j'avais testé avec "SetWindowsHookEx " ou valeur "1" mais sans succès !.

Maintenant, j'analyse les fonctions que j'ai.

@+,

Cincap

[BuzzLeclaire]

Salut,

voici ma contribution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
    procedure ProcMess(Var msg: TMsg; Var Handled: Boolean);
  private
    { Private declarations }
  Public
    { Public declarations }
  end;
 
 
Var
  Etatkb:Array[0..255]of Boolean;
 
Implementation
 
 
procedure TFTravail.ProcMess(Var msg: TMsg; Var Handled: Boolean);
Begin
    If(msg.Message=WM_KEYDOWN)THEN Etatkb[msg.wparam]:=True;
    If(msg.Message=WM_KEYUP)THEN Etatkb[msg.wparam]:=False;
 
// Msg.xxxxx
 
end;

Exemple d'utilisation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
    if (not EtatKb[18]) then // touche ALTà été enfoncée evite le probleme du ALTGR qui vaut le CTRL+ALT
    Begin
      if (Etatkb[VK_CONTROL]) and (Etatkb[84]) then // CTRL + T
      begin
 
// ... traitement
 
        EtatKb[VK_CONTROL] := False;
        EtatKb[84] := False;
      end
      else
      begin
        if (Etatkb[VK_CONTROL]) and (Etatkb[66]) then // CTRL + B
        Begin
// ... traitement
 
          EtatKb[VK_CONTROL] := False;
          EtatKb[66] := False;
        end
      end;
    end
    else
    begin
      EtatKb[18] := False;
      Etatkb[VK_CONTROL] := False;
    end;
  end;

Bye

[Montor]

Bonjour à toutes et à tous,

@ Zutatous, merci de ta réponse, j'arrive bien à intercepter les touches mais pas de bloquer au moins une !

J'avais une autre fonction qui est sensiblement la même :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
function KeyboardProc(nCode: Integer; wParam: Longint; lParam: Longint): Longint; stdcall;
var IsAltPressed, IsCtrlPressed, IsShiftPressed: Boolean;
begin
  if ((lParam and (1 shl 29)) <> 0) then
    IsAltPressed := True
  else
    IsAltPressed := False;
  if ((GetKeyState(VK_CONTROL) and (1 shl 15)) <> 0) then begin
    IsCtrlPressed := True ;
    showmessage('Ok touche Ctrl pressée')
    end
  else
    IsCtrlPressed := False;
  if ((GetKeyState(VK_SHIFT) and (1 shl 15)) <> 0) then begin
    IsShiftPressed := true ;
    showmessage('Ok touche Shift pressée')
    end
  else
    IsShiftPressed := False;
  if ((GetKeyState(VK_MENU) and (1 shl 15)) <> 0) then begin
    IsCtrlPressed := True ;
    showmessage('Ok touche Alt pressée')
    end
  else
    IsCtrlPressed := False;
  if ((GetKeyState(VK_NUMLOCK) and (1 shl 15)) <> 0) then begin
    IsCtrlPressed := True ;
    showmessage('Ok touche NumLock pressée')
    end
  else
    IsCtrlPressed := False;
  if lParam > 0 then Shift := IsShiftPressed ;
  Result := CallNextHookEx(KeyboardHook, nCode, wParam, lParam);
end;

A ce stade, il manque le blocage par contre la reconnaissance de l'appui sur les touches voulues est ok

@+,

Cincap

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Result := HC_SKIP;

[Andnotor]

HC_SKIP pourquoi pas ! Mais dans le cas d'un hook clavier, il faut simplement renvoyer une valeur différente de 0.

[cincap]

@ tous, merci, je m'en vais tester cela.

@ AndNotOr, j'ai essayé avec un hook complet du clavier et la combinaison "Alt+Shift+NumLock" ne semble pas bloquée, de même avec la valeur différente de 0.

Je vous tiens au courant bien entendu.

@+,

Cincap

[Montor]

HC_SKIP pourquoi pas ! Mais dans le cas d'un hook clavier, il faut simplement renvoyer une valeur différente de 0.

il y a plusieurs façon pour le faire Hook TEven.Onmessage Presskey WndMehtod c'est cincap qui a opté pour le hook