程序之间数据传送 问题

Question

我已经写好了发送窗体的程序,主要语句:
SendMessage (Hd, WM_COPYDATA, Handle,Cardinal(@ds)) 
其中hd为目标窗口的handle
    ds: TCopyDataStruct;
问:
接受窗口的代码该怎么写:希望得到具体的答案.谢谢!!!

Answer 1

procedure Receive_Text(var AMessage: TMessage); message M_CopyData;//接收数据procedure TServerForm.Receive_Text(var AMessage: TMessage);
var
   Txt : Pchar;
   PText : ^CopyDataStruct;
begin
     PText := Pointer(AMessage.LParam);
     Txt := PText.lpData ;
end;

Answer 2

to  eagleldj(亚洲飞鹰) 
谢谢
调用这个函数时 该写什么参数??/