Hook dans TService

**BuzzLeclaire** · 16/11/2020, 12h53

Bonjour à tous

,

Suite à mes recherches et diverses récoltes sur la gestion de Hook Clavier, j'ai créé une application qui utilise une DLL Hook et qui m'apporte toute satisfaction. (Evidement je n'ai pas créé moi même la DLL et ce n'est pas celle de Nono)

Pour l'instant c'est une application classique de bureau, est-ce possible de faire fonctionner ce style d'application dans un service ?

J'utilise déjà des services (via un Timer) pour des opérations qui ont un début et une fin, mais je vois pas où intégrer mes procédures (et si possible sans Thread).

La principal procédure est celle-ci qui est alimentée/informée par la DLL qui Hook le clavier

==> j'ai conscience que les memos et autres composants n'ont rien à faire dans un TService..

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
procedure TForm1.ClavierHookPreExecute(Hook: THook; var Hookmsg: THookMsg);
var
  NumFenetre: THandle;
  P1: pKBDLLHOOKSTRUCT;
  NomExe : String;
  Lettre : String;
  TypeClavier: TCar;
begin
 
  NomExe := GetActiveProcessName(NumFenetre);
  if ListeNumHandelEnCours <> NumFenetre then
  begin
    ListeNumHandelEnCours := NumFenetre;
    Memo4.Lines.Add('['+ NomExe +'='+inttostr(NumFenetre)+']');
  end;
 
  Memo3.lines.Add(IntTostr(Hookmsg.Code) + #9 + Char(Hookmsg.WParam) + #9 + IntTostr(Hookmsg.LParam) + #9 + IntTostr(Hookmsg.Result));
 
  P1 := Pointer(Hookmsg.LParam);
 
  // Touches classiques
  // Clavier local      : 0  (Zone Alpha + fonctions + pavé numérique), 1  (Déplacement + autres)
  // Clavier à distance : 16 (Zone Alpha + fonctions), 17 (Déplacement + pavé numérique)
 
  // Touches exotiques
  // Clavier local      : 0 (Ctrl ou Maj Gauche), 1 (Ctrl ou Maj droit), 32 (Alt Gauche), 33(Alt Droit)
  // Clavier à distance : 16(Ctrl ou Maj Gauche), 17(Ctrl ou Maj droit), 48 (Alt Gauche)
 
  Etatkb[P1^.vkCode] := (P1^.flags = 0) or (P1^.flags = 1);
 
  // voir ce qu'il se passe...
  sChkMaj.Checked := (Etatkb[160] = True) or (Etatkb[161] = True);
  sChkCtrl.Checked := (Etatkb[162] = True) or (Etatkb[163] = True);
  sChkAlt.Checked := (Etatkb[164] = True) or (EtatKb[165] = True);
 
// Test..
  EtatKbMaj := sChkMaj.Checked;
  EtatKbCtrl:= sChkCtrl.Checked;
  EtatKbAlt := sChkAlt.Checked;
 
  if EtatKbMaj then TypeClavier := tcMaj
  else if EtatKbAlt And EtatKbCtrl then TypeClavier := tcCtrlAlt
  else TypeClavier := tcSimple;
 
  Lettre := ConvCar(TypeClavier,P1^.vkCode);
 
  if (P1^.flags in [0,1]) And
     (P1^.vkCode in [9,.......]) // pour faire simple
  then
  begin
    if Lettre = 'Esp' then Lettre := ' ';
    if Lettre = 'Tab' then Lettre := #09;
    Mot := Mot + Lettre;
    Phrase := Phrase + Lettre;
  end;
 
  if (Lettre = 'Esp') or (Lettre = 'Tab') then begin Memo5.Lines.Add(mot); Mot := ''; end;
  if (Lettre = 'Ret') then begin Memo6.Lines.Add(Phrase); Phrase := ''; end;
 
  case P1^.flags of
    0,1: Memo1.lines.Add(Lettre +  #9 + IntTostr(P1^.vkCode) + #9 + IntTostr(P1^.scanCodem) + #9 +IntTostr(P1^.flags) + #9 + DateTimetostr(P1^.time));
    else
       Memo2.lines.Add(Lettre + #9 + IntTostr(P1^.vkCode) + #9 + IntTostr(P1^.scanCodem) + #9 +IntTostr(P1^.flags) + #9 + IntTostr(P1^.time));
  end;
  Lettre := '';
 
end;

OnCreate de la Form

Code :

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

1
2
3
4
5
6
procedure TForm1.FormCreate(Sender: TObject);
Begin
  ClavierHook := TLowLevelKeyboardHook.Create; // Présent dans la DLL
  ClavierHook.OnPreExecute := ClavierHookPreExecute;
  ClavierHook.Active := True;
end;

Merci pour votre aide.

**ShaiLeTroll** · 16/11/2020, 13h30

je n'ai pas touché au Hook depuis longtemps, j'avais fait ma propre DLL où je faisais en sorte que les WM_PAINT affiche la classe de la fenêtre dans la barre de titre

je dirais que tu peux installer le hook au démarrage du Service, dans le OnStart ... après avec l'isolation du système, est-ce qu'un service peut déclarer un hook, il faut au moins activer l'interactivité avec le bureau et sur les windows récents, ça me semble plus difficile

Ton résultat, tu peut l'écrire dans un fichier au lieu d'un mémo mais le problème c'est que savoir la fenêtre active, savoir le process actif, depuis un service, avec l'isolation et la séparation 32/64, galère galère si c'est faisable