怎样产生一个自定义消息，然后把消息分配给应用程序或窗口？

Question

怎样产生一个自定义消息，然后把消息分配给应用程序或窗口？最好给个例子

Answer 1

const
  WM_FormCre = Wm_User+101;
procedure TMainForm.Wm_FormAct(var message: Tmessage);
begin
  showmessage("sdd");
end;procedure TMainForm.btnClick(Sender: TObject);
begin
 sendmessage(Handle,wm_formcre,0,0);
end;

Answer 2

sorry
private
   procedure Wm_FormAct(var message:Tmessage);message wm_formact;procedure TMainForm.Wm_FormAct(var message: Tmessage);
begin
  showmessage("sdd");
end;
...

Answer 3

楼上就可以实现一个工程中的消息互发；下面源码除了有楼上功能外还有App与Dll传递消息的功能：
http://www.xiya.com.cn/xiangqin/awind/codes/adkiller.rar