怎样在我的程序中接收另一个应用程序发来的自定义消息？（在线等待..）

Question

在程序1中通过WinExec运行程序2，在程序2中点击按钮给程序1发送WM_USER＋X的消息，要求程序1接收
该消息，并执行一个文件删除的操作。

Answer 1

procedure wmgetmsg(msg:tmessage);message WM_PAINT;
.......

Answer 2

procedure MessageProc(Msg: TMessage); Message WM_USER+X;
应该就可以接收到传过来的自定义消息了

Answer 3

只管接受就行了
程序1和2里面都定义MM_MESSAGE=WM_USER+X;程序2里面SendMessage(h,MM_MESSAGE,0,0);  h为程序1主窗口的句柄程序1 procedure HandleMyMessage(var Msg: TMessage);message MM_MESSAGE;
//接下来处理消息就行了