急！！！在线等待您的答复！(20分)

有这么一个简单的程序请问诸位专家如何编写？<br>首先有一个运行在后台的程序。<br>还有一个前台程序有，表单上只有一个button,当点击button时，后台运行的程序弹出对话框<br>。我知道这个程序大概用到消息，但是如何编？请给出源码！谢谢！！！<br>

可以直接给后台发个消息吧，后台收到这个信息就弹出个框吧，不难吧

最简单的方法，广播自定义消息。<br>const<br>&nbsp; &nbsp;myMessage=WM_User+$345;<br>...<br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br>&nbsp; RegisterWindowMessage(myMessage);<br>end;<br>...<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>&nbsp; SendMessage(HWND_BROADCAS,myMessage,0,0);<br>end;<br><br>接收程序中：<br>const<br>&nbsp; &nbsp;myMessage=WM_User+$345;<br>...<br>type<br>&nbsp; &nbsp;TForm1 = class(Form)<br>&nbsp; &nbsp; ...<br>&nbsp; &nbsp;private<br>&nbsp; &nbsp; &nbsp;procedure OnMyMessage(var Msg: TMessage); message myMessage;<br>...<br>procedure TForm1.OnMyMessage(var Msg: TMessage);<br>begin<br>&nbsp; ShowMessage('Message Received!');<br>end;

谢谢！