VC Delphi WM_COPYDATA 消息

最新推荐文章于 2024-08-05 10:55:53 发布

whisht

最新推荐文章于 2024-08-05 10:55:53 发布

阅读量1.3k

点赞数

分类专栏： VC/C++ Delphi 文章标签： delphi string

本文链接：https://blog.csdn.net/ljz9425/article/details/6900553

版权

VC/C++ 同时被 2 个专栏收录

32 篇文章 0 订阅

订阅专栏

Delphi

11 篇文章 0 订阅

订阅专栏

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