delphi传递字符串信息 WM_COPYDATA  转

delphi的消息机制里，我在一个窗口里通过发送消息（PostMessage）给另一个窗口，那怎么传递字符串信息呢？

delphi的消息机制里，我在一个窗口里通过发送消息（PostMessage）给另一个窗口，那怎么传递字符串信息呢？

必须使用sendMessage.

sendmessage会等待接受消息完成后才继续执行，这样你的str才会被另一个窗口可靠接收。postmessage传递完消息立即返回，这样接收窗口就不一定完全接收当时传递的str.尤其是在局部变量的情况。

而进程间的数据传递好像只有用wm_copydata消息，它可以跨进程拷贝内存。

使用WM_COPYDATA传递.

发送:

Delphi(Pascal) code

procedureSendString(strMSG: string);

var

Data: tagCOPYDATASTRUCT;

pBuf: PChar;

begin

GetMem(pBuf, Length(strMSG) +1);

try

ZeroMemory(pBuf, Length(strMSG) +1);

StrPCopy(pBuf, strMSG);

Data.cbData:=Length(strMSG);

Data.dwData:=Length(strMSG);

Data.lpData:=pBuf;

SendMessage(hTargetWin, WM_COPYDATA, Integer(Self.Handle), Integer(@Data));

finally

FreeMem(pBuf);

end;

end;

接收:

Delphi(Pascal) code

procedureWMCopyData(varMSG: TMessage); message WM_COPYDATA;

procedureTForm1.WMCopyData(varMSG: TMessage);

var

Data : ^tagCOPYDATASTRUCT;

strMSG: string;beginData:=Pointer(Msg.lParam);

strMSG:=StrPas(Data.lpData);

ShowMessage(strMSG);

end;