Intercepter des messages non destinés à mon application

Version imprimable

20/06/2006, 19h57
DCD

Intercepter des messages non destinés à mon application
Voilà... TOut est dans le titre...

En fait, j'ai une télécommande, elle envois un message

APPCOMMAND_MEDIA_PLAY = $2E0000; ( par exemple ) à windows... Si le media player est en route, il prend en compte ce message... MEME SI IL N'A PAS LE FOCUS !!!!

J'aimerai faire de même avec mon appli ( qui n'arrive même pas à toper le message même avec le focus ! ).

j'utilise un code du genre :
Code:

1 2 3 4 5 6 7 procedure TForm.WMAppCommand(var Msg: TMessage); begin if Msg.LParam = APPCOMMAND_MEDIA_PLAY then ... MON ACTION ... inherited; end;
Par contre, en envoyant à ma fiche, avec un bouton, APPCOMMAND_MEDIA_PLAY de cette manière :
Code:

1 2 3 4 5 procedure TForm1.Button1Click(Sender: TObject); begin PostMessage(Handle, WM_APPCOMMAND, 0, APPCOMMAND_MEDIA_PLAY); end;
"MON ACTION" s'execute très bien !!!

Si quelqu'un peu m'aider...

Merci.

DeeTOX.
20/06/2006, 20h45
Sub0

Regarde du côté de la fonction GetMessage peut-être...

Nein

Non, ca marche pas avec cette fonction... J'ai fais ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm1.Button1Click(Sender: TObject); var Msg : TMsg; begin While GetMessage(Msg, 0, 0, 0) Do Begin TranslateMessage(Msg); DispatchMessage(Msg); label1.caption := inttostr(msg.wParam)+' ' +inttostr(msg.lParam); application.processmessages; End; end;
Et rien ne change dans label1 lorsque APPCOMMAND_MEDIA_PLAY est envoyé ! :-s !

Merci quand même !

Une autre idée ?

DeeTOX.

20/06/2006, 21h35
Pedro

Salut :D
:tagcode: :merci:
20/06/2006, 21h36
DCD

Sorry patron !
20/06/2006, 21h44
Pedro

Citation:

Envoyé par DCD

Sorry patron !

Pas grave du moment que ça ne se reproduise plus :twisted: ;) Sinon :sm::lol:
En tout cas, ce sujet m'intéresse au plus haut point: j'aimerais pouvoir intercepter la ribambelle de messages de Messenger... Mais je n'y suis pas arrivé non plus :? :oops:

Regarde ces articles si tu trouves ton bonheur... (surtout le 1er)
http://alphomega.developpez.com/EchangeVal/
http://bob.developpez.com/tutapiwin/article_23.php
http://www.developpez.net/forums/sho...d.php?p=262957

[EDIT] Il me semble que pour intercepter un message d'une autre application, il soit nécessaire de connaître son handle. Le "0" (broadcast) ne fonctionne pas apparemment. J'ai eu l'occasion de m'en rendre compte lorsque je voulais faire communiquer 2 programmes via les messages...

Depuis, j'ai trouvé ce code (à essayer) :
Code:

1 2 3 4 5 6 7 8 9 10 11 While (PeekMessage(Msg,HWND(-1),0,0,PM_REMOVE)) Do Begin Case Msg.message Of WM_CLOSE : Exit ; // Insère ici tes messages "perso" à traiter. Else Begin TranslateMessage(Msg); DispatchMessage(Msg); End; End; End;
Tu as aussi la fonction WaitMessage qui peut t'intérresser. Elle permet de bloquer la boucle jusqu'à reception d'un message.

21/06/2006, 08h35
DCD

C'est bien ce qui me faisait peur... J'ai besoin du handle de la de l'appli qui reçoit les codes de ma télécommande... Le problème c'est que j'ai aucune idée de quelle appli il s'agit!!!! Windows media player quand il est allumé et sinon ?!? lol !!

donc je vais fouiner pour voir si j'peux trouver quelque chose sur le recepteur !

Je vous tien au courant.

DeeTOX.
21/06/2006, 12h21
Sub0

As-tu essayer le code donné ci-dessus ?
Tu remarqueras que l'handle utilisé est HWND(-1) et non 0...
Peut-être que ça fonctionne, je ne l'ai pas testé.

Salut,

En ce qui concerne l'interception (lorsque la form est active seulement) du play/pause du clavier, il est possible de procéder comme suit (ou d'utiliser WndProc) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type
  TForm1 = class(TForm)
  protected
    procedure WmAppCommand(var Message: TMessage); message WM_APPCOMMAND;
  end;
 
(...)
 
procedure TForm1.WmAppCommand(var Message: TMessage);
begin
  if Message.LParamHi = APPCOMMAND_MEDIA_PLAY_PAUSE then
    MessageDlg('play !', mtWarning, [mbOK], 0);
end;

En ce qui concerne l'interception de ce même message lorsqu'il est envoyé à une autre application, je ne connais que les hooks comme solution potentielle, mais c'est bien super chiant à faire et c'est pas gagné...

Pour ceux qui veulent jouer à autre chose qu'au play/pause, Message.LParamHi peut aussi (semble-t-il) potentiellement contenir ces constantes :

Code:

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
  APPCOMMAND_BROWSER_BACKWARD       = 1;
  APPCOMMAND_BROWSER_FORWARD        = 2;
  APPCOMMAND_BROWSER_REFRESH        = 3;
  APPCOMMAND_BROWSER_STOP           = 4;
  APPCOMMAND_BROWSER_SEARCH         = 5;
  APPCOMMAND_BROWSER_FAVORITES      = 6;
  APPCOMMAND_BROWSER_HOME           = 7;
  APPCOMMAND_VOLUME_MUTE            = 8;
  APPCOMMAND_VOLUME_DOWN            = 9;
  APPCOMMAND_VOLUME_UP              = 10;
  APPCOMMAND_MEDIA_NEXTTRACK        = 11;
  APPCOMMAND_MEDIA_PREVIOUSTRACK    = 12;
  APPCOMMAND_MEDIA_STOP             = 13;
  APPCOMMAND_MEDIA_PLAY_PAUSE       = 14;
  APPCOMMAND_LAUNCH_MAIL            = 15;
  APPCOMMAND_LAUNCH_MEDIA_SELECT    = 16;
  APPCOMMAND_LAUNCH_APP1            = 17;
  APPCOMMAND_LAUNCH_APP2            = 18;
  APPCOMMAND_BASS_DOWN              = 19;
  APPCOMMAND_BASS_BOOST             = 20;
  APPCOMMAND_BASS_UP                = 21;
  APPCOMMAND_TREBLE_DOWN            = 22;
  APPCOMMAND_TREBLE_UP              = 23;
  APPCOMMAND_MICROPHONE_VOLUME_MUTE = 24;
  APPCOMMAND_MICROPHONE_VOLUME_DOWN = 25;
  APPCOMMAND_MICROPHONE_VOLUME_UP   = 26;
  APPCOMMAND_HELP                   = 27;
  APPCOMMAND_FIND                   = 28;
  APPCOMMAND_NEW                    = 29;
  APPCOMMAND_OPEN                   = 30;
  APPCOMMAND_CLOSE                  = 31;
  APPCOMMAND_SAVE                   = 32;
  APPCOMMAND_PRINT                  = 33;
  APPCOMMAND_UNDO                   = 34;
  APPCOMMAND_REDO                   = 35;
  APPCOMMAND_COPY                   = 36;
  APPCOMMAND_CUT                    = 37;
  APPCOMMAND_PASTE                  = 38;
  APPCOMMAND_REPLY_TO_MAIL          = 39;
  APPCOMMAND_FORWARD_MAIL           = 40;
  APPCOMMAND_SEND_MAIL              = 41;
  APPCOMMAND_SPELL_CHECK            = 42;
  APPCOMMAND_DICTATE_OR_COMMAND_CONTROL_TOGGLE    = 43;
  APPCOMMAND_MIC_ON_OFF_TOGGLE      = 44;
  APPCOMMAND_CORRECTION_LIST        = 45;
  APPCOMMAND_MEDIA_PLAY             = 46;
  APPCOMMAND_MEDIA_PAUSE            = 47;
  APPCOMMAND_MEDIA_RECORD           = 48;
  APPCOMMAND_MEDIA_FAST_FORWARD     = 49;
  APPCOMMAND_MEDIA_REWIND           = 50;
  APPCOMMAND_MEDIA_CHANNEL_UP       = 51;
  APPCOMMAND_MEDIA_CHANNEL_DOWN     = 52;

Enfin à titre informatif :

Code:

WM_APPCOMMAND = $0319;

24/06/2006, 16h07
DCD

Désolé de pas avoir répondu

désolé de pas avoir répondu avant, j'avais du taf...

Alors, DMO, merci, ca fonctionne impec avec les messages rentrant direct dans mon appli... Mais je panique toujours pour toper ceux des autres applications...

Je crois que je vais me débrouillé sans...

deeTOX.
24/06/2006, 16h14
DMO

Pas de quoi :)

Citation:

Envoyé par DCD

je panique toujours pour toper ceux des autres applications...

Citation:

Envoyé par DMO

En ce qui concerne l'interception (lorsque la form est active seulement) (...)

Citation:

Envoyé par DMO

En ce qui concerne l'interception de ce même message lorsqu'il est envoyé à une autre application, je ne connais que les hooks comme solution potentielle, mais c'est bien super chiant à faire et c'est pas gagné...

Citation:

Envoyé par DCD

Je crois que je vais me débrouillé sans...

ça facilitera pas mal les choses en effet ! :wink:
25/06/2006, 19h35
edam

je ne sais pas si c'est possible, mais j'ai déjà lu quelque part qu'on peut enrgistré un message (différtent de ceux de windows) pour qu'on le resoit (avec un peut de bricolage et les jhook bien sur) dés qu'il circulle
??????????
25/06/2006, 20h08
Sub0

Citation:

Envoyé par Sub0

Regarde ces articles si tu trouves ton bonheur... (surtout le 1er)
http://alphomega.developpez.com/EchangeVal/
http://bob.developpez.com/tutapiwin/article_23.php
http://www.developpez.net/forums/sho...d.php?p=262957