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

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

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

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

代码就不写了，说一个思路：

1、注册一个窗口类，指定一个默认处理方法RegisterClass

2、创建该窗口类的一个实例，得到窗口句柄CreateWindow

3、创建消息循环

PeekMessage(...)

while True do

begin

GetMessage(msg, 0, 0, 0)

case msg.message of

WM_QUIT:...

WM_USER+100:...

end

end

4、最后线程结束前发线程结束消息，并销毁窗口

PostThreadMessage(threadID, WM_QUIT, 0, 0)

DestroyWindow(windowHandle)

---