Message système - Evénement clavier

**TOTO32** · 09/12/2007, 16h01

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/

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.