在两个程序之间交换数据
?牐犜赪IN32中有一个特殊的WM_COPYDATA的WINDOWS消息可在两个应用程序间传递数据，这个消息需要传递两个参数为：其中一个参数为发送数据的窗口句柄；另一个参数为指向一个TCOPYDATASTRUCT数据结构的指针，这个结构的定义如下：
?牐燩CopyDataStruct = TCopyDataStruct;??
?牐爐agCOPYDATASTRUCT = packed record
?牐燿wData:DWORD;//附加的32位参数；
?牐燾bData:DWORD;//为待发送数据申请的缓冲区大小；
?牐爈pData:Pointer;//指向待发送数据申请的缓冲区的指针；
?牐爀nd;
?牐燭CopyDataStruct = tagCOPYDATASTRUCT;??
?牐犝飧鼋峁姑挥性贒elphi帮助文件中归类，位于Windows.pas文件中。具体实现如下：
?牐犜贒elphi的IDE环境下建立一个发送数据的应用程序（包括一个窗体FORM1），如^50020502a^。
?牐犉渲校⑺桶磁ィ╪ame为ButtonSend）的响应方法为：
?牐爌rocedure TForm1.ButtonSendClick（Sender:TObject）;
?牐爒ar
?牐燙dstr:TCopyDataStruct;
?牐燞:THandle;
?牐爏:String;
?牐燽egin
?牐爏:=edit1.Text;
?牐?//先填充TCopyDataStruct数据结构
?牐?//附加的32位参数
?牐燙dstr.dwData:= 111;
?牐?//待传递的数据或信息的长度（按字符型计算）
?牐燙dstr.cbData:= Length（s）+ 1;
?牐?//申请相应大小的缓冲区并填充数据
?牐燝etMem （Cdstr.lpData， Cdstr.cbData）;
?牐燬trCopy（Cdstr.lpData， PChar （s））;
?牐?//查找接受数据窗口的句柄；
?牐爃:= FindWindow ?煟ǎ?TForm2＇， ＇Form2＇）;//查找窗体名称为Form2的窗口的句柄
?牐爄f h <> 0 then
?牐燽egin
?牐?//成功找到则发送消息
?牐爄f SendMessage （h， WM_COPYDATA， Handle， Cardinal（@Cdstr））= 1 then
?牐?//如果成功;
?牐爈abel2.Caption:=＇成功发送＇;
?牐爀nd
?牐爀lse
?牐?//不成功显示信息；
?牐燬howMessage （＇没有成功发送数据＇）;
?牐?//释放申请的内存
?牐燜reeMem （Cdstr.lpData）;
?牐爀nd;
?牐犜俳?立一个接收数据的应用程序（窗体为Form2），如^50020502a^。不需要太多的编码，只需要在窗体的单元文件中的Public部分增加一个定制的消息响应对象方法，以响应WM_COPYDATA消息，形式为：
?牐爌rocedure GetCopyData （var Msg: TWmCopyData）;
?牐爉essage wm_CopyData;
?牐?.
?牐?.
?牐?.
?牐牱椒ㄊ迪秩缦拢?
?牐爌rocedure TForm2.GetData（var Msg:TWmCopyData）;
?牐爒ar
?牐爏:string;
?牐燽egin
?牐燤emo1.Clear;
?牐燬etLength （s， 100）;?牔?
?牐燝etWindowText（Msg.From， PChar（s），1000）;
?牐爏:= pChar（s）;
?牐燤emo1.Lines.Add（＇数据来自:＇ +s）;
?牐爓ith Memo1.Lines， Msg.CopyDataStruct^ do
?牐燽egin
?牐燗dd （＇接收到的数据大小: ＇ + IntToStr （cbData））;?牐牔?
?牐燗dd （＇接收的数据为: ＇ + PChar?煟╨pData））;
?牐爀nd;
?牐?//返回成功接收标志
?牐燤sg.Result:= 1;
?牐爀nd;
?牐犗啾冉霞籼濉⒍萁换唬―DE）及OLE的实现方法，这个方法比较简单。以上程序在Delphi 5下运行通过。