Discussion :

[devoluti0n]

Bonjour, j'aimerai savoir si quelqu'un ici sait comment fonctionnent les keyboard hooks.

Je veux pouvoir capter la préssion d'une touche afin d'y assigner une action à faire.

je pourai utiliser getasynckeystate mais je dois le faire avec des keyhooks .

Donc quelqu'un saurai clairement m'éxpliquer le fonctionnement de ces hooks clavier ?

Merci d'avance, car je sature en voyant des keyloggers avec trop de choses dont je n'ai pas besoin et qui empeche de comprendre son fonctionnement.

[Fabrice ROUXEL 1]

Pour intercepter les messages "clavier" il faut:
1) appeler SetWindowsHookEx de l'api Win32 avec le parametre WH_KEYBOARD.
2)Définir une procedure de callback au sein de laquelle tu testes les touches et effectues le traitement spécifique.
3)Puis libérer le hook avec UnhookWindowsHookEx();

Consultes l'aide Win32, ce n'est pas très compliqué à mettre en place.

[ShaiLeTroll]

Euh, si c'est pour VK_RMENU, tu seras déçu, le hook, je ne suis pas persuadé qu'il l'a renvoie puisque :

The KeyboardProc hook procedure is an application-defined or library-defined callback function the system calls whenever an application calls the GetMessage or PeekMessage function and there is a keyboard message (WM_KEYUP or WM_KEYDOWN) to be processed.

tient, j'ai pondu ça, alors normalement un Hook faut le faire dans une DLL car sinon ça détourne les messages clavier de l'Application (en gros ça fout le bordel), ... tu vois faut juste l'encapsuler, c'est ultra facile, et tu fais un message perso WM_USER + 100, tu te transfère WPARAM et LPARAM dans ce message (faut fournir son handle à la DLL pour quelle sache ou l'envoyer)

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
var
  HookKeyboardHandle: HHook = 0;
 
function HookKeyboardProc(Code: Integer; Msg: WPARAM; MouseHook: LPARAM): LRESULT; stdcall;
begin
  FrmTestDivers.MemoHook.Text := FrmTestDivers.MemoHook.Text + IntToStr(Msg);
end;
 
procedure TFrmTestDivers.BtnHookStartClick(Sender: TObject);
begin
  HookKeyboardHandle := SetWindowsHookEx(WH_KEYBOARD, HookKeyboardProc, HInstance, 0);
end;
 
procedure TFrmTestDivers.BtnHookStopClick(Sender: TObject);
begin
  if HookKeyboardHandle <> 0 then
    UnhookWindowsHookEx(HookKeyboardHandle);
  HookKeyboardHandle := 0;
end;

[Fabrice ROUXEL 1]

Un second exemple

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  KeybdHook: HHook;
 
implementation
 
{$R *.DFM}
function KeyboardProc(code: Integer; wParam: Word; lParam: LongInt):LResult;Stdcall;
begin
  if wParam = VK_RETURN then Form1.Color := clYellow;
  Result := 1;   // Tester Result := 0;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  KeybdHook := SetWindowsHookEx(WH_KEYBOARD, @KeyboardProc, HInstance, 0);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnhookWindowsHookEx(KeybdHook);
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then ShowMessage('OnKeyDown');
end;
 
end.

Dans la fonction KeyboardProc, mettre Result :=0 pour propager le message.
-> FormKeyDown s'execute.

[devoluti0n]

Merci pour vos réponses !!
Je retiens particulierement celle de notre ami Fabrice.
Cependant il y a quelque chose que je ne comprends pas :

Mettre result à 0 ne fait pas se propager le méssage.
et donc formkeydown ne s'éxécute pas, mais en meme temps je ne vois pas d'appel de procédure.

[Fabrice ROUXEL 1]

C'est le contraire.

Si tu mets Result à 0, le message est propagé, c'est à dire que la procédure de fenêtre traitera le message clavier.
FormKeyDown est là pour illustrer le principe.

Avec Result <> 0, on dit à Windows de ne pas envoyer le message dans la file de message associée à la fenêtre.

En fait Windows gere tous les evenements du systeme. Quand tu appuyes sur une touche du clavier, windows va identifier la fenetre concernée et envoyer un message clavier dans sa file de message. Ensuite une procedure de fenetre boucle en permanence en lisant la file de message puis dispatche les messages.
Le hook intercepte le message destiné à la fenetre.dans la procedure de hook tu as l'opportuné via la valeur de retour d'indiquer à windows si le message doit etre posté dans la file de message de la fenetre cible ou bien s'il ne doit pas etre posté.

Cet exemple de code illustre ce principe.

Voila.

[Fabrice ROUXEL 1]

Penses au tag