利用WM_COPYDATA进行进程间单向通信

最新推荐文章于 2020-09-12 06:24:44 发布

aore1939

最新推荐文章于 2020-09-12 06:24:44 发布

阅读量116

点赞数

原文链接：http://www.cnblogs.com/Dragon7/archive/2011/07/14/2106295.html

版权

本文详细介绍了如何使用WM_COPYDATA消息实现Windows环境下进程间的单向通信。通过具体的Delphi代码示例，展示了发送方和接收方如何构造和解析COPYDATASTRUCT结构，实现数据的有效传递。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

利用WM_COPYDATA进行进程间单向通信

一：发送方

View Code

var
 hwnd:THandle;
 cpStruct:COPYDATASTRUCT;
begin
 hwnd: = FindWindow( nil ,PChar(FORMNAME));
 if hwnd <> 0 then
 begin
 cpStruct.dwData: = 0 ;
 cpStruct.cbData: = length( ' test ' ) + 1 ;
 cpStruct.lpData: = pchar( ' test ' );
 SendMessage(Handle,WM_COPYDATA, 0 ,Cardinal(@cpStruct)); // lParam和wParam的顺序不能交换，具体原因还未找到
 end ;
end ;

二：接收方

View Code

procedure WMCopyData( var Message: TWMCopyData); message WM_COPYDATA;

procedure TForm1.WMCopyData( var Message: TWMCopyData);
begin
   if message .Msg = WM_COPYDATA then
    Self.Text: = PChar( message .CopyDataStruct.lpData)
   else
    ShowMessage( ' 方法不对 ' );
end ;