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,0,1);

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+100;

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的程序是唯一的。