BCB 如何实现在不同的程序间发送和响应自定义消息？

在两个或者说多个应用程序之间使用某个应用程序中定义的消息,那么应将这个消息进行注册,使之成为Windows消息(当然要保证其唯一性),使用RegisterWindowMessage进行注册,下面是两个应用程序(也就是说是两个.exe,不要误解成两个Form).
Application 1:
.h File
class TForm1:public TForm
{
private:

public:

protected:
...........
}
.cpp File
//I omit the constructor
void __fastcall TForm1::FormCreate(TObject *Sender)
{
UINT uMsg=::RegisterWindowMessage( "WM_MYMESSAGE ");
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HWND hWnd=::FindWindow(NULL, "Form2 ");
if(hWnd) ::SendMessage(hWnd,uMsg,0,0);
}

Application 2:
class TForm2:public TForm
{
private:
....
public:
.....
protected:
virtual void __fastcall WndProc(TMessage &Message);
};
.cpp File
//I omit all other functions and only write the window procedure
void __fastcall TForm2::WndProc(TMessage &Message)
{
if(Message.Msg==uMsg)
{
ShowMessage( "I received the message defined in application1 ");
.....................
}
TForm::WndProc(Message);
}

还有一种方法可以实现在两个进程间通讯,那就是使用WM_COPYDATA消息,在这里也给出代码:
发送方:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
COPYDATASTRUCT cds;

AnsiString Data=Edit2-> Text;// "Just a test ";

cds.dwData=sizeof(COPYDATASTRUCT);
cds.cbData=Data.Length();
cds.lpData=(LPVOID)Data.c_str();

HWND hWnd=::FindWindow(NULL, "接收方窗口的标题 ");
if(hWnd) ::SendMessage(hWnd,WM_COPYDATA,NULL,(LPARAM)&cds);

//向目标窗口发消息WM_COPYDATA
SendMessage(hWnd,WM_COPYDATA,(WPARAM)NULL,(LPARAM)&cds);
}
接收方:
void __fastcall TForm2::WndProc(TMessag &Message)
{
if(Message.Msg==WM_COPYDATA)
{
COPYDATASTRUCT *cds;
char* DataBuf;

cds=(COPYDATASTRUCT*)Message.LParam;
DataBuf=new char[cds-> cbData];
CopyMemory(DataBuf,cds-> lpData,cds-> cbData);

AnsiString Str=AnsiString(DataBuf);
Memo1-> Lines-> Add( "Str= "+Str);

delete[] DataBuf;
}
TForm::WndProc(Message);
}

总结一下：

发送WM_COPYDATA消息只能用SendMessage而不能用PostMessage，原因是WM_COPYDATA发送的数据是以内存映射文件形式发送的，用PostMessage后内存映射文件的句柄就无失效了，会造成数据丢失。

被传递的数据中不能带有对象的指针或引用之类的指针型数据，否则这些数据不会被接收应用程序获取到。

被传递的数据在传递过程中，它不能被发送应用程序修改。

接收方认为被传递的数据是只读的，lParam只在消息处理函数中可见，因此接收应用程序不应该释放lParam所占用的程序空间。如果接收应用程序需要在消息处理函数返回后再对传递的数据有处理，可以把传递数据复制到本地的缓冲区中。