DELPHI WM_CopyData 用法

最新推荐文章于 2022-08-27 22:36:49 发布

weixin_30872733

最新推荐文章于 2022-08-27 22:36:49 发布

阅读量120

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/jxsoft/archive/2011/03/23/1992895.html

本文介绍了一个使用 Delphi 实现 WM_COPYDATA 消息传递的具体示例。通过这个示例，开发者可以了解如何在两个窗口间发送文本数据，并在接收窗口中显示这些数据。示例代码详细展示了发送方构造数据包并发送，以及接收方如何解析接收到的数据。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
procedure MyCopyDataMsg(Var Msg : TMessage); Message WM_COPYDATA;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
cdds : TCopyDataStruct;
begin

cdds.dwData := 0;
cdds.cbData := length(Edit1.Text)+1;
cdds.lpData := pchar(Edit1.Text);
SendMessage(Handle,WM_COPYDATA,0,LongWord(@cdds));

end;

procedure TForm1.MyCopyDataMsg(var Msg: TMessage);
var
cdds : TcopyDataStruct;
begin
if msg.Msg = WM_COPYDATA then
begin
cdds := PcopyDataStruct(Msg.LParam)^;
edit2.Text := (Pchar(cdds.lpData));
end;
end;

end.

转载于:https://www.cnblogs.com/jxsoft/archive/2011/03/23/1992895.html