VC Delphi WM_COPYDATA 消息

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); }