版权所有 codesky.net 2003-2005
首先在单元的声明部分定义消息:
const MY_Message=WM_USER+100; //用户自定义的消息范围为100~$7FFF;
然后声明和定义消息处理过程:
procedure MYMessage(var Msg:TMessage);message MY_Message;//声明消息处理过程;
//定义消息处理过程;
procedure TForm1.MYMessage(var Msg:TMessage);
begin
{填写相应代码}
end;
这样自定义消息的处理过程声明和定义完毕后,即可在需要发送消息时使用;如
下;
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Perform(MY_Message,0,0);//发送自定义的消息;
end;-----------------------------------------------------------------------具体可以解决两个EXE相互通讯的问题.如一个EXE调用另外一个EXE,另外一个EXE可以通过发送消息的方式返回状态