进程通讯(自定义消息)

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

还是比较懒点,这个从一个朋友给的delphi版本的改过来的,本来不准备贴的,无奈问的朋友多~~~~~~~:(

分两部分

接收和发送,测试过了

发送

.h

//---------------------------------------------------------------------------

#ifndef Unit1H

#define Unit1H

//---------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#define WM_COMM WM_APP+100

//---------------------------------------------------------------------------

class TForm1 : public TForm

{

__published: // IDE-managed Components

TButton *Button1;

TButton *Button2;

TButton *Button3;

void __fastcall Button1Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

void __fastcall Button3Click(TObject *Sender);

private:

bool ShowProcess(HWND Whandle); // User declarations

public: // User declarations

__fastcall TForm1(TComponent* Owner);

};

//---------------------------------------------------------------------------

extern PACKAGE TForm1 *Form1;

//---------------------------------------------------------------------------

#endif

.cpp

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Windows.h"

#include "Messages.hpp"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

HWND whd;

whd = FindWindow(NULL,"Receiver");

ShowProcess(whd);

::SendMessage(whd,WM_COMM,0,0);

}

//---------------------------------------------------------------------------

bool TForm1::ShowProcess(HWND Whandle)

{

//TODO: Add your source code here

bool rtn = false;

try{

ShowWindow(Whandle,SW_RESTORE);

SetForegroundWindow(Whandle);

SetActiveWindow(Whandle);

rtn = true;

}

catch(...)

{

}

return rtn;

}

void __fastcall TForm1::Button2Click(TObject *Sender)

{

HWND whd;

whd = FindWindow(NULL,"Receiver");

ShowProcess(whd);

::SendMessage(whd,WM_COMM,0,1);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

HWND whd;

whd = FindWindow(NULL,"Receiver");

ShowProcess(whd);

::SendMessage(whd,WM_COMM,1,0);

}

//---------------------------------------------------------------------------

接收的

.h

//---------------------------------------------------------------------------

#ifndef ReceiverH

#define ReceiverH

//---------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#define WM_COMM WM_APP+100

//---------------------------------------------------------------------------

class TForm1 : public TForm

{

__published: // IDE-managed Components

TEdit *Edit1;

private:

void userpro(TMessage &msg); // User declarations

public: // User declarations

__fastcall TForm1(TComponent* Owner);

protected:

BEGIN_MESSAGE_MAP

VCL_MESSAGE_HANDLER(WM_COMM, TMessage, userpro)

END_MESSAGE_MAP(TForm)

};

//---------------------------------------------------------------------------

extern PACKAGE TForm1 *Form1;

//---------------------------------------------------------------------------

#endif

.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Receiver.h"

#include "Windows.h"

#include "Messages.hpp"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void TForm1::userpro(TMessage &msg)

{

//TODO: Add your source code here

if(msg.WParam == 0 &&msg.LParam == 0)

Edit1->Text = "命令一";

if(msg.WParam == 0 && msg.LParam == 1)

Edit1->Text = "命令二";

if(msg.WParam == 1 && msg.LParam == 0)

Edit1->Text = "命令三";

}

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航