不能在动态库中使用消息机制？！！！如何解决？紧急

Question

消息机制不能在动态库发送？！！！如何解决？紧急    
动态库代码大致如下：  
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 1

function  createcard():integer;stdcall;//注册消息  
begin  
   result  :=  RegisterWindowMessage('chen_deng_card');  
end;  function  sendcard(iIntermsg : integer):integer;stdcall;//发送消息  
begin  
   result := sendmessage(HWND_BROADCAST, iIntermsg ,0,0);  
end;  试试多看看书，代码写得哪么不规范，而且有错误。