无分提问，只是为了提高！如何发送消息到另一应用程序？

Question

var
  chdl: THandle;
begin
  chdl := FindWindow(nil, '19820120-client');
  PostMessage(chdl, 0, 1998, 2002);
end;已经获得了另一应用程序的句柄，其窗口标题为“'19820120-client”，并且通过了PostMessage这个API函数发送消息给它。请问：   窗口标题为“'19820120-client”的应用程序如何接收到1998和2002这消息数据？  拜托各位，分不是关键，等以后有分一定给！

Answer 1

两个程序都定义
const wm_my = wm_user+101;PostMessage(chdl, wm_my, 1998, 2002);
接受程序
procedure onwmmy(var msg:TMessage);message wm_my;msg.wparam=1998 msg.lparam=2002