delphi WM_COPYDATA的应用

本文整理自网络，侵删。

 type
TMyRecord = packed record
b: Boolean; s: string[255];
end;
PMyRecord = ^TMyRecord;

procedure TForm1.Button1Click(Sender: TObject);
var
MyRecord: PMyRecord;
cds: TCopyDataStruct;
hWnd: THandle;
begin
GetMem(MyRecord, sizeof(TMyRecord));
try
MyRecord.b := True;
MyRecord.s := 'Hello world';
cds.dwData := 0;
cds.cbData := sizeof(TMyRecord);
cds.lpData := MyRecord;
hWnd := FindWindow(nil, 'Receiver');
SendMessage(hWnd, WM_COPYDATA, Handle, Integer(@cds));
finally
FreeMem(MyRecord, sizeof(TMyRecord));
end;
end; 

相关阅读 >>

Delphi enumwindows 获取窗体句柄 进程id 窗体信息

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

Delphi 遍历注册表

Delphi 文件，文件夹删除移动和拷贝

5种运行程序的方法具体应用实例

Delphi 关闭sql server 数据库所有使用连接

Delphi2009 使用 png 图片

Delphi xe [dcc32 fatal error] f2039 could not create output file 问题的解决

如何为Delphi程序添加事件和事件处理器

Delphi 释放bitmap

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

转载请注明出处：木庄网络博客 » delphi WM_COPYDATA的应用