在windows中訊息分為兩種，即系統訊息和使用者自定義訊息，系統訊息定義從0到0x3ff，可以使用0x400到0x7fff定義自己的訊息。windows把0x400定義為WM_USER，如果想定義自己的一個訊息，可以在WM_USER上加上一個值。當然了，有另外一種方法，這裡就不講了，而是使用RegisterWindowsMessage()函式。要想用訊息實現程序間通訊，則需要在這兩個程式中定義或註冊相同的訊息，才能保證資料通訊順利進行。
　　使用這種方式實現程序間通訊，但是傳送的資料只能是長整型的資料，不能是字串。所以這個就是這種方式的侷限。

我的測試原始碼：

程序1程式碼：

//-------------------------main.h-----------------------------
 

#ifndef mainH
#define mainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Buttons.hpp>
#include <Vcl.ExtCtrls.hpp>
 


#define WM_PROCESS_RECV (WM_USER+100)   //自定義訊息第一步：定義自己的訊息

//-------------------------------------------------------------------
class TformMain : public TForm
{
__published:    // IDE-managed Components
    TMemo *mmoMsgShow;
    TGroupBox *GroupBox1;
    TGroupBox *GroupBox2;
    TLabeledEdit *ledtMsgSend;
    TBitBtn *btnSend;
    void
 
 __fastcall btnSendClick(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TformMain(TComponent* Owner);

protected:
    //自定義訊息第三步：定義自己訊息的處理函式
    //自定義訊息第四步：實現處理函式
    void __fastcall RecvMsg(Messages::TMessage &Message);

//自定義訊息第二步：將自己定義的訊息加入訊息對映表
BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_PROCESS_RECV, TMessage, RecvMsg);
END_MESSAGE_MAP(TForm);
};
//---------------------------------------------------------------------------
extern PACKAGE TformMain *formMain;
//---------------------------------------------------------------------------
#endif

//-------------------------main.cpp---------------------------------
#include <vcl.h>
#pragma hdrstop

#include "main.h"
#include <stdio.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TformMain *formMain;
//---------------------------------------------------------------------------
__fastcall TformMain::TformMain(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TformMain::RecvMsg(Messages::TMessage &Message)
{
    int iRecv = Message.LParam;
    mmoMsgShow->Lines->Add(iRecv);
}
//---------------------------------------------------------------------------
void __fastcall TformMain::btnSendClick(TObject *Sender)
{
    int iSend = ledtMsgSend->Text.ToInt();
    try
    {
        //程序間傳遞指標要出錯的,因為他們有自己的4G程序空間,這裡的指標在另一個程序中不是有效的，所以只能傳遞整數不能傳遞字串
        HWND hwnd=FindWindow(L"TformMain", L"程序間通訊----自定義訊息2");//前面是類名（可以為空），後面是窗體名字
        SendMessage(hwnd,WM_PROCESS_RECV,0, iSend);
    }catch(...)
    {

    }
}

程序2程式碼(基本和程序1程式碼一樣)：

//--------------------------main.h---------------------------------
#ifndef mainH
#define mainH
//-------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Buttons.hpp>
#include <Vcl.ExtCtrls.hpp>

#define WM_PROCESS_RECV (WM_USER+100)

//---------------------------------------------------------------------------
class TformMain : public TForm
{
__published:    // IDE-managed Components
    TMemo *mmoMsgShow;
    TGroupBox *GroupBox1;
    TGroupBox *GroupBox2;
    TLabeledEdit *ledtMsgSend;
    TBitBtn *btnSend;
    void __fastcall btnSendClick(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TformMain(TComponent* Owner);

protected:
    void __fastcall RecvMsg(Messages::TMessage &Message);

BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_PROCESS_RECV, TMessage, RecvMsg);
END_MESSAGE_MAP(TForm);
};
//---------------------------------------------------------------------------
extern PACKAGE TformMain *formMain;
//---------------------------------------------------------------------------
#endif

//-------------------------------main.cpp----------------------------
#include <vcl.h>
#pragma hdrstop

#include "main.h"
#include <stdio.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TformMain *formMain;
//---------------------------------------------------------------------------
__fastcall TformMain::TformMain(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TformMain::RecvMsg(Messages::TMessage &Message)
{
    int iRecv = Message.LParam;
    mmoMsgShow->Lines->Add(iRecv);
}
//---------------------------------------------------------------------------
void __fastcall TformMain::btnSendClick(TObject *Sender)
{
    int iSend = ledtMsgSend->Text.ToInt();
    try
    {
        //程序間傳遞指標要出錯的,因為他們有自己的4G程序空間,這裡的指標在另一個程序中不是有效的
        HWND hwnd=FindWindow(L"TformMain", L"程序間通訊----自定義訊息1");//前面是類名，後面是窗體名字
        SendMessage(hwnd,WM_PROCESS_RECV,0, iSend);
    }catch(...)
    {

    }
}

測試結果：

要注意的是：
程序間傳遞指標要出錯的,因為他們有自己的4G程序空間,這裡的指標在另一個程序中不是有效的，所以只能傳遞整數不能傳遞字串，另外自定義訊息這種程序間通訊方式只能在同一臺計算機上進行，無法跨網路和跨計算機進行。原因從程式碼中可以看到，HWND hwnd=FindWindow(L”TformMain”, L”程序間通訊—-自定義訊息1”);不可能找到另一臺計算機上執行程序的名稱。
在下一篇部落格中將講述用類似的方式，但是可以傳遞字串。