Delphi跨程序发送数据信息

//接收方
procedure GetCopyDataMsg(var Msg: TMessage); message WM_COPYDATA;

procedure GetCopyDataMsg(var Msg: TMessage);
var
  cdst: TCopyDataStruct;
  tmp: string;
begin
  cdst := PcopyDataStruct(Msg.LParam)^;
  tmp:= PChar(cdst.lpData);
end;
//发送方
procedure SendCopyData(ihandle: THandle; tmp: string);
var
  cdst: TCopyDataStruct;
begin
  cdst.dwData := 0;
  cdst.cbData := length(tmp) + 1;
  cdst.lpData := pchar(tmp);
  SendMessage(ihandle, WM_COPYDATA, 0, Cardinal(@cdst));
end;