1. unit Unit1;
2. interface
3. uses
4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5. Dialogs, StdCtrls, ComCtrls;
6. type
7. TForm1 = class(TForm)
8. Button1: TButton;
9. Edit1: TEdit;
10. Edit2: TEdit;
11. procedure Button1Click(Sender: TObject);
12. private
13. { Private declarations }
14. public
15. procedure MyCopyDataMsg(Var Msg : TMessage); Message WM_COPYDATA;
16. end;
17. var
18. Form1: TForm1;
19. implementation
20. {$R *.dfm}
21. procedure TForm1.Button1Click(Sender: TObject);
22. var
23. cdds : TCopyDataStruct;
24. begin
25. cdds.dwData := 0;
26. cdds.cbData := length(Edit1.Text)+1;
27. cdds.lpData := pchar(Edit1.Text);
28. SendMessage(Handle,WM_COPYDATA,0,LongWord(@cdds));
29. end;
30. procedure TForm1.MyCopyDataMsg(var Msg: TMessage);
31. var
32. cdds : TcopyDataStruct;
33. begin
34. if msg.Msg = WM_COPYDATA then
35. begin
36. cdds := PcopyDataStruct(Msg.LParam)^;
37. edit2.Text := (Pchar(cdds.lpData));
38. end;
39. end;
40. end.

http://blog.csdn.net/huang_xw/article/details/8015286

最新文章

1. 《Entity Framework 6 Recipes》中文翻译系列 (39) ------ 第七章 使用对象服务之配置模型和使用单复数服务
2. IE8的parseInt
3. android dialog
4. Auty自动化测试框架第二篇——读取与执行脚本列表
5. 启动另外一个activity，并返回结果
6. JAVA 快递查询接口API调用-快递鸟接口
7. C#。3.1 循环（叠加、穷举）
8. 使用Python在2M内存中排序一百万个32位整数
9. jmeter测试HTTP请求
10. Eclipse中pydev开发，python重载__init__报错，是可以正常执行
11. 容器化系列 - Zookeeper启动和配置 on Docker
12. Hdu2041 超级楼梯 （斐波那契数列）
13. localStorage,sessionStorage,cookie使用场景和区别
14. python基础之单例设计模式
15. JZOJ 10043 第k小数
16. Android AsyncTask 源代码分析
17. Unity商店下载的文件保存路径？
18. Python全栈开发之11、进程和线程
19. ApplicationContextAware接口
20. go chapter 6 - map array

热门文章

1. Objective-C基础笔记（8)Foundation经常使用类NSString
2. CEPH OBJECTSTORE API介绍
3. 解析C#内存管理
4. php的标准输入与输出是什么？
5. uva 1519 - Dictionary Size(字典树)
6. 编译器是C写的，包括一点C++，editor和debugger是C++写的（最早的16位编译器是纯汇编写的）
7. 版本控制（1）——SVN
8. 项目中碰到的ExceptionInInitializerError异常
9. new与属性访问的顺序，从一道JS面试题说起
10. Facebook学长交流分享