Delphi 两个应用程序（进程）之间的通信

两个应用程序之间的通信实际上是两个进程之间的通信。由于本人知识有限，决定应用消息来实现。需要用到的知识：

1.RegisterWindowMessage(); //参数类型：pchar；返回值：LongInt;

注册全局消息函数。

2.FindWindow(
  
lpClassName,        {窗口的类名}
  
lpWindowName: PChar {窗口的标题}
): HWND;              {返回窗口的句柄; 失败返回 0}

检索欲接收消息的窗体函数。

3.Wndproc();

每个窗口会有一个称为窗口过程的回调函数(WndProc)，它带有四个参数，分别为：窗口句柄(Window Handle),消息ID(Message ID),和两个消息参数(wParam, lParam)

4.PostMessage();

该函数将一个消息放入（寄送）到与指定窗口创建的线程相联系消息队列里，不等待线程处理消息就返回，是异步消息模式。消息队列里的消息通过调用GetMessage和PeekMessage取得。取得后交由WndProc进行处理。

好了，需要的知识都在这里了，现在开始我们的应用程序之间通信。

首先在两个应用程序的主窗体的创建过程注册消息，消息编号一定要不小于WM_USER,然后在发送消息的程序1中得到接收消息的程序2中主窗体句柄，并通过PostMessage向其发送消息；接下来在程序2的主窗体创建过程注册和程序1相同编号的消息，然后重载程序2的Wndproc过程。废话就不多说了，直接贴代码：

////////////////////////////////////发送消息的程序1//////////////////////////////////////////

 unit Unit1;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, Buttons;

 type
 TForm1 = class(TForm)
     Button2: TButton;
     Button3: TButton;
     BitBtn1: TBitBtn;
     procedure Button2Click(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure BitBtn1Click(Sender: TObject);
 private
     { Private declarations }

     I: Integer;

 public
     { Public declarations }

 end;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 { TForm1 }
 procedure TForm1.FormShow(Sender: TObject);
 begin
   I:= RegisterWindowMessage('MyMessage');
 end;
 procedure TForm1.BitBtn1Click(Sender: TObject);
 var
   h1: HWND;
 begin
   h1:= FindWindow(nil,'Form2');
   PostMessage(h1,I,,);
 end;

///////////////////////////程序2//////////////////////////////////////////////

 unit Unit1;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, AppEvnts, Buttons,QExtCtrls, ExtCtrls;
 const
   My_MousL = WM_USER+;
 type
 TForm2 = class(TForm)
     Button1: TButton;
     ApplicationEvents1: TApplicationEvents;
     BitBtn1: TBitBtn;
     BtnCreatePanel: TBitBtn;
     BitBtn2: TBitBtn;
     BitBtn3: TBitBtn;
     Panel1: TPanel;
     Button2: TButton;
     procedure FormShow(Sender: TObject);
 private
     { Private declarations }
     J: Integer;
 public
     { Public declarations }
     procedure   WndProc(var   Message:   TMessage);   override;
 end;

 var
 Form2: TForm2;

 implementation

 {$R *.dfm}

 procedure TForm1.FormShow(Sender: TObject);
 begin
   J:= RegisterWindowMessage('MyMessage');
 end;

 procedure TForm1.WndProc(var Message: TMessage);
 begin
   if Message.Msg = J then
     ShowMessage('得到消息')
   else
     inherited;
 end;

至此，应用程序间通信就完成了，这里需要注意：FindWindow一定要找到你想要得到消息的应用程序，也就是说如果用FindWindow(nil,'Form2')，你一定得保证窗体的caption:= Form2的程序是唯一的。

---------------------------------------------------------------------------------------------------------------------------------

另附上一个Delphi进程间通信的两种方法：

WIN下面进程间通信的最常用办法就是消息了，下面记录两种消息通信的方式：
 --------------------------------------------------------------------------------------------
一.第一种办法,利用注册Windows全局的消息.并覆盖wndProc过程来监听消息处理.

1. 发送消息方:

 private
   strWM:Cardinal;  //定义一个局部变量
   //...
 
 proccedure Form1.Create(sender:TObject);
 begin
   strWM:= RegisterWindowMessage('newspopMessage'); //注册一个windows全局消息,通过这个消息与其它进程通信
 end;

  procedure Form1.Button1Click1(Sender:TObject);
 var
   h:Cardinal;
13 begin
   //通信的步骤得先找到要通信的信息窗口Handle
   h:=findWindow('目标进程窗口类名','窗口Caption');
   //发送消息消息类型为自定义的strWM
   SendMessage(h,strWM,,);  //这里同样可以带参数：wParam,lParam。但我传一个PChar,读取的时候总报错，不知道为啥
 end;

2.接收消息方:

         private
             strWM:Cardinal;  //定义一个局部变量
             procedure wndProc(var msg:Tmessage);override; //覆盖这个方法,可以监听所有的Windows消息回调函数
          ...
         proccedure Form1.Create(sender:TObject);
         begin
             strWM:= RegisterWindowMessage('newspopMessage'); //注册一个windows全局消息,这个相当于暗号
         end;
         procecure form1.wndProc(var msg:TMessage);
         begin
             //在这里处理这个消息就行了
             showmessage(strpas(PChar(msg.lparam))); //这样写会报错的.但可以处理其它无参数的事情
         end;

----------------------------------------------------------------------------------------------
二.第二种办法,发送一个WM_COPYDATA的消息.并且可以带一个TCopyDataStruct的结构类型参数.

1.发送消息方:

 procedure TMainForm.CallAgent(msg: string);
   var
     HlAgent:HWND;
     ds:TCopyDatastruct;    //定义一个TCopyDatastruct结构体变量
   begin
     //AgentMsg := msg;
     ds.cbData := (Length(msg)+1)*SizeOf(char); //结构体的第一个元素: 长度cbData
     GetMem(ds.lpData,ds.cbData); //分配内存,结构体的第二个参数:  数据的指针lpDATA
     StrCopy(ds.lpData,PChar(msg)); //复制值到结构指针

     HlAgent :=FindWindow('TmsgpopMainCaller','调用者');  //查找目标窗体的Handle
     if  HlAgent <>  then
     begin
       //ShowMessage('主' + IntToStr(Cardinal(@ds)));
       SendMessage(HlAgent,WM_COPYDATA,,Cardinal(@ds));   //发送WM_COPYDATA消息,并带上参数 @ds
     end;
     FreeMem(ds.lpData); //释放数据内存
   end;

2.接收方程序:

     public
             procedure MyMessage(var m:TWmCopyData);message WM_CopyData;   //定义一个消息响应过程,并传入一个TWmCopyData的参数
     ...
     procedure TmsgpopMainCaller.MyMessage(var m: TWmCopyData); //实现响应
     var
       msg:string;
     begin
       msg :=StrPas(m.CopyDataStruct^.lpData);    //获取参数数据
       ShowMessageForm := TShowMessageForm.Create(self,msg);  //处理
     end;

版权声明：本文为博主原创文章，未经博主允许不得转载。