首先是发送数据
procedure SendMsg(Msg: string);
var
DS: TCopyDataStruct;
hd: THandle;
begin
Ds.cbData := Length(Msg) + 1;
GetMem(Ds.lpData, Ds.cbData);
StrCopy(ds.lpData, PChar(Msg));
if Hd <> 0 then // 发送WM_COPYDATA消息
SendMessage(Application.MainForm.Handle, WM_COPYDATA, Application.Handle, Cardinal(@ds));
FreeMem(Ds.lpData); //释放资源
end;
然后是接收数据
procedure MyMessage(var t: TWMCopyData); message WM_COPYDATA;
procedure TMainFrame.MyMessage(var t: TWMCopyData);
var
s: string;
begin //接受消息并显示。
s := StrPas(t.CopyDataStruct^.lpData);
if memLog.Lines.Count > 1000 then
memLog.Clear;
memLog.Lines.Add(s);
AddLog(s);
end;
本文地址:
http://www.xszlo.com/article/2012-12-08/7612.html,转发请保留这个地址,谢谢
分享到:
相关推荐
关于WM_COPYDATA使用方法,里面共有两个例子,包括进程里面的传送及进程间的传送。传送结构体及传送JPG图片
How to Send Information (String, Image, Record) Between Two Delphi Applications Using WM_COPYDATA.pdf
Delphi基础Window_消息大全 有需要的就下载吧 消息,就是指Windows发出的一个通知,告诉应用程序某个事情发生了。例如,单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息...
一般的托盘图标是无法获取WM_MOUSELEAVE消息以返回给父窗口的,这段代码通过检测鼠标的位置来判断鼠标指针是否离开当前的托盘图标,从而发送WM_MOUSELEAVE给父窗口。感觉不是很灵敏,但能用。
Delphi_XE2_datasheet_zhs.pdf
DevExpress_VCL_v21.1.7_for_Delphi_11_Alexandria,强大的VCL套件,一旦拥有别无他求
Delphi开发B_S数据库应用系统教程
borland 64 软件调试出错. 解决Assertion failure: (!SetThreadContext failed) in ..\win32src\thread32.cpp 问题
Delphi_Json_JSON_delphi_delphijson_delphi操作json格式_delphi读写json_源码.rar.rar
Delphi_Json_JSON_delphi_delphijson_delphi操作json格式_delphi读写json.z
EMS_Advanced_Data_Import_VCL_Suite_v3.11.0_for_Delphi_10.3_Rio_Downloadly.ir.rar
delphi的视频开发包,完善的视频设置,驱动选择
ReportBuilder_19.03_Enterprise_for_Delphi_10.3_Rio_Full_Source_Downloadly.ir.rar
Delphi程序间消息传递 使用该消息涉及一个TcopyDataStruct结构类型的指针。该结构中有三个成员: dwData 是一个32位的附加参数 cbData 表示要传递的数据区的大小 lpData 表示要传递的数据区的指针 下面举个例子。该...
Delphi_7_高效数据库程序设计仅供自已学习使用。
EMS_Advanced_Data_Export_VCL_Suite_v4.15.0.0_for_Delphi_10.3_Rio_Downloadly.ir.rar
delphI自带的定时控件是以消息方式产生的,当程序忙时就会收不到定时消息。这个线程定时器可解决这个问题。
Devart_SQL_Server_Data_Access_Components_SDAC_for_Delphi_8.0.2_D6-XE10.2_Downloadly.ir.rar
Wxn_delphi_delphi7_delphi微信支付_微信支付delphi.zip
简单的入门学习,看看也可以,对菜鸟也有帮助。