WM_CopyData 用法

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