Discussion :

[Papy214]

Bonjour

Je met mon appli dans la barre des tâches avec le TTrayIcon.

Quel serait le moyen le plus simple pour intercepter une frappe de touches style raccourci (Ctrl+F12 par exemple) dans un évènement de mon soft ?

Est-ce qu'il y a plus simple que de mettre un hook sur le système ?

J'ai besoin que ça fonctionne de XP à seven.

Papy !

[istam3]

Pour intercepter tout les appuis de touche dans ton soft, sur la fiche principale tu peux mettre le KeyPreview à true et coder un gestionnaire d'événement sur OnKeyDown ou OnKeyUp (je n'utilise pas OnKeyPress car il ne donne pas l'état des touches Ctrl/Alt/Shift..).
Par contre, n'utilisant pas TTrayIcon, je ne saurais pas dire si ma réponse correspond exactement à ce que tu cherches.

[ShaiLeTroll]

Par contre, n'utilisant pas TTrayIcon, je ne saurais pas dire si ma réponse correspond exactement à ce que tu cherches.

C'est surement le problème que rencontre Papy214
Il doit vouloir capturer "Ctrl+F12" même lorsque la fenêtre de son programme est inactive, ou même invisible !

Le Hook me semble cohérent, ce n'est qu'une toute petite DLL à mettre en place !
Ou alors, un peu dégueux, un GetAsyncKeyState dans un TTimer à 50 ms !
Si la touche F12 est pressé au moment du GetAsyncKeyState(VK_F12), cela renvoie $8000
Si la touche CTRL est pressé au moment du GetAsyncKeyState(VK_CONTROL), cela renvoie $8000

Tu peux tester les deux ensembles, vu que l'on presse facilement au moins 50ms, j'ai testé, ça fonctionne
Il est presque difficile de presse moins de 50ms, tu peux le descendre à 10 (tu n'auras pas mieux)

[Papy214]

Même si c'est degueu, ça ira très bien. C'est juste pur un utilitaire interne.

Merci !

[Andnotor]

Ce genre de raccourci se ferait plutôt par Hot Key. Enregistrer la combinaison et gérer le message WM_HOTKEY:

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
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    HotKey :TAtom;
    procedure WMHotKey(var Message :TWMHotKey); message WM_HOTKEY;
  end;
 
var
  Form1 :TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  HotKey := GlobalAddAtom('MyHotkey');
  RegisterHotKey(Handle, HotKey, MOD_CONTROL, VK_F12);
end;
 
procedure TForm1.WMHotKey(var Message: TWMHotKey);
begin
  Caption := DateTimeToStr(Now);
end;
 
end.

[Papy214]

Je viens d'apprendre un truc là.
Merci

[Papy214]

Par contre, le RegisterHotKey ne demande pas un "unregister" quelconque en sortie de programme ??

[Andnotor]

UnregisterHotKey, GlobalDeleteAtom

[Papy214]

Thanks a lot ! :-)

[Bernard B]

Très intéressant, cela mérite une inscription dans la FAQ

[Papy214]

Très intéressant, cela mérite une inscription dans la FAQ

+ 1 ... et même + 2