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

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

转载最新推荐文章于 2020-09-12 06:24:44 发布 · 139 阅读

0 ·

CC 4.0 BY-SA版权

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

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

利用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 ;

posted on 2011-07-14 13:59 龙七阅读( ...) 评论( ...) 编辑收藏

转载于:https://www.cnblogs.com/Dragon7/archive/2011/07/14/2106295.html