Bonjour a tous !
En consultant un tuto sur les message systéme intitulé "Comment gerer les messages systémes", j'y ai trouvé un code qui permet de connaitre les touche clavier enfoncé, trés intérressant !
Mais en executant ce code, je me suis rendu compte que seul mon application en cour d'execution etait concerner, et que lorsque j'ouvre excel les impulsion clavier ne sont pas indiquer par mon application.
Hors moi j'aurais aimer avoir une application qui puissent detecter toutes les impulsion clavier de toutes les application en cours d'execution.
Voici le code situé a l'adresse : http://jfdeterme.developpez.com/tuto...hi/messagesys/
Donc, si quelqu'un pourrait me donner un petit indice, ce serait super sympa, Merci a tous !
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 unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TMainFrame = class(TForm) Label1: TLabel; Label2: TLabel; private { Déclarations privées } procedure WMCHAR(var Msg: TWMCHAR); message WM_CHAR; public { Déclarations publiques } end; var MainFrame: TMainFrame; implementation {$R *.dfm} procedure TMainFrame.WMCHAR(var Msg: TWMCHAR); var c: string; // Message figurant dans le Label2 une fois le message reçu begin c := 'Message reçu, la touche sur laquelle vous avez appuyée est : ' + chr(Msg.CharCode); MainFrame.Label2.Caption := c; end; end.
Partager