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.

相关阅读 >>

Delphi 检测进程是否存在函数

Delphi 三层架构简单例子(经测试成功)

Delphi 网上获取北京时间idhttpserver and idhttp 使用 encoding utf8

Delphi tcomport控件从串品读取数据

Delphi编写涂鸦桌面的小程序

Delphi强制关闭执行程序(杀进程)

Delphi 字幕下载单元subdownload.pas

Delphi 闪盘小偷

Delphi-改进获取文件md5 hash方法

Delphi 计算文件与当前时间差(天小时分钟秒)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...