Discussion :

[Desraux]

Bonjour,

J'essaye de me familiriser avec la fonction SendMessage. Si j'ai bien compris on peut à partir d'une application Windows envoyer un message à une autre application Windows.

Pour ce faire j'ai écrit deux programmes en Delphi (test).

Le premier contient une procedure sur l'évènement "WM_COPYDATA" et trace dans un mémo son exécution. Au démarrage il affiche le handle de la form.

Le second lui exécute tous les n millisecondes la fonction SendMessage sur le handle du premier programme.

Le problème c'est que ça ne marche pas. La plupart des exemples que j'ai vu sur le net "SendMessage" est exécuté à l'intérieur de l'application mais selon les infos que j'ai lues normalement il n'y a pas de problème on peut l'utiliser entre applications.

Merci de m'éclairer sur ce sujet.

[Reisubar]

Peux tu nous montrer des extraits de code significatifs ?

[Caine]

Bonjour, tu as un vice de forme , car deux process ne partagent pas aussi simplement la valeur de leurs variables.

Ainsi dans le premier process le handle de l'application est bien définis, j'imagine que tu le stocke dans une var globale.

Dans le deuxième process, cette valeur est indéterminée, ton message n'arrive pas à bon port.

Pour tester ce genre de fonction, créais-toi un message propriaitaire qui ne concerne que tes deux applis.

Bonjour,

J'essaye de me familiriser avec la fonction SendMessage. Si j'ai bien compris on peut à partir d'une application Windows envoyer un message à une autre application Windows.

Pour ce faire j'ai écrit deux programmes en Delphi (test).

Le premier contient une procedure sur l'évènement "WM_COPYDATA" et trace dans un mémo son exécution. Au démarrage il affiche le handle de la form.

Le second lui exécute tous les n millisecondes la fonction SendMessage sur le handle du premier programme.

Le problème c'est que ça ne marche pas. La plupart des exemples que j'ai vu sur le net "SendMessage" est exécuté à l'intérieur de l'application mais selon les infos que j'ai lues normalement il n'y a pas de problème on peut l'utiliser entre applications.

Merci de m'éclairer sur ce sujet.

[Desraux]

Ci-joint le code pour tester la fonction SendMessage

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
Unit1 envoie WM_COYDATA vers Unit2
 
//**********************************************************
unit Unit1;
 
interface
 
uses
  Messages, SysUtils, Windows,Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Timer1: TTimer;
    CheckBox1: TCheckBox;
    procedure Timer1Timer(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// Pour vérifier que le code ici s'exécute
Beep(1000,50);
// Edit1.text contient la valeur du handle du programme destinataire
SendMessage(StrToInt(Edit1.Text),WM_COPYDATA,0,0);
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
// Pour vérifier la valeur du message WM_COPYDATA
// ShowMessage(IntToStr(WM_COPYDATA));
Timer1.Enabled:=Checkbox1.Checked;
end;
 
end.

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
 
//**********************************************************
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure OnCopyData(var Msg : TMessage); message WM_COPYDATA;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
Procedure TForm1.OnCopyData(var Msg : TMessage);
Begin
Memo1.Lines.Add('OnCopyData');
End;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
// ShowMessage(IntToStr(WM_COPYDATA));
Edit1.Text:=IntToStr(Form1.Handle);
SendMessage(Handle,WM_COPYDATA,0,0);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:=IntToStr(Form1.Handle);
end;
 
 
end.

Balises code ajoutées par Laurent Dardenne

[Desraux]

Merci pour les infos.

D'abord j'ai vu que j'utilisait mal le message WM_COPYDATA, il doit être complété par wParam et lParam.

Ensuite pour les messages entre applications j'utilise RegisterWindowMessage.