消息机制不能在动态库发送？！！！如何解决？紧急

Question

delphi的不能在动态库中有效发送消息，如何解决？

Answer 1

消息机制不能在动态库发送？！！！如何解决？紧急 
动态库代码大致如下：
var
INTERMSG : UINT;//消息标识function createcard():integer;stdcall;//注册消息
var
  INTERMSG : integer;
begin
  INTERMSG := RegisterWindowMessage('chen_deng_card');
  cardcreate:=0;
end;
function sendcard():integer;stdcall;//发送消息
begin
  sendmessage(HWND_BROADCAST,INTERMSG,0,0);
  cardsave:=0;
end;
这段代码在窗体中运行正常，其他进程可以接受，可是用在动态库中被调用就没有反应，怎么能解决呢？

Answer 2

to wuxiangyang() ( ) :你试验了吗？在动态中发送消息，让另一个进程的窗体接受，我这里就不可以