VC Unicode项目
发送消息DELPHI代码
var
wData: String;
h: HWND;
cds: TCopyDataStruct;
begin
wData:= '1234567890'+ Chr(0);
cds.dwData:= 0;
cds.cbData:= Length(wData);
cds.lpData:= PWideChar(wData);
SendMessage(h, WM_COPYDATA, 0, LongWord(@cds));
end
非VC Unicode项目
var
wData: WideString;
h: HWND;
cds: TCopyDataStruct;
begin
wData:= '1234567890'+ Chr(0) + Chr(0);
cds.dwData:= 0;
cds.cbData:= Length(wData) * 2 + SizeOf(WChar) * 2;
cds.lpData:= PWideChar(wData);
SendMessage(h, WM_COPYDATA, 0, LongWord(@cds));
end
VC接收消息代码:
BOOL CGVideoDlg::OnCopyData(CWnd* pWnd, COPYDATASTRUCT* pCopyDataStruct)
{
// TODO: 在此添加消息处理程序代码和/或调用默认值
MessageBox((LPCTSTR)(pCopyDataStruct->lpData));
return CDialog::OnCopyData(pWnd, pCopyDataStruct);
}