delphi如何接收别的程序发过来的自定义的消息

最简单的是在窗口类中搭大写一个消息处理函数

Procedure myhandlemessage( var msg: TMessage)message 你的自定义消息值

当然还有别的方式，银手比如重写窗口的消息处理函数，但比较麻烦，也容易出错，知搏竖建议上面的方案。

1、可以使用PostMessage实现燃明消息的广播

2、创建服务的时候闹竖，需要修液段大改CreateService的参数，添加SERVICE_INTERACTIVE_PROCESS，具体如下：

C/C++ code?

SC_HANDLE hService = ::CreateService(

hSCM, m_szServiceName, m_szServiceName,

SERVICE_ALL_ACCESS,

SERVICE_WIN32_OWN_PROCESS | SERVICE_INTERACTIVE_PROCESS, SERVICE_DEMAND_START, SERVICE_ERROR_NORMAL,

szFilePath, NULL, NULL, _T("RPCSS\0"), NULL, NULL)

---