如何实现两个进程(两个EXE文件)的通讯(用消息,不用内存共享)? 在一个EXE文件点击某事件,在别一个EXE及时得到响应?第一次应用消息处理,我在网上查了半天,还是没办法解决,高分请求高手们给出发送消息和接收消息的原代码!先多谢了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 发送方 var Hnd : THandle; aStr : PChar;begin aData.dwData := 123; aData.cbData := 256; GetMem(aData.lpData,256); aStr := '测试'; StrLCopy(PChar(aData.lpData),aStr,256); Hnd := FindWindow(PChar('TfrmReceive'),nil); if Hnd <> 0 then SendMessage(Hnd,WM_COPYDATA,0,Integer(@aData)) ; FreeMem(aData.lpData,256);end;接收方 procedure WMCopyData(var Msg : TWMCopyData);message WM_COPYDATA;procedure WMCopyData(var Msg : TWMCopyData);begin ShowMessage(PChar(Msg.CopyDataStruct.lpData));end;你可以利用dwData当作是发送或接收方的一些约定 sendmessage postmessage 等API就可以搞定 Interprocess Communicationshttp://msdn.microsoft.com/en-us/library/aa365574(VS.85).aspx Delphi 7 使用 SuperMap Objects 5.3.0 版本Delphi组件时出现"没有注册类别"错误提示 Twebbrowser如何防止彈出這個錯誤呢 有关UDP控件的问题 关于无线网卡的问题 送分(在线等待) 如何才能在DBGrid中内嵌TCheckBox? 怎样把目录树的内容输到报表同样以目录树的形式打印??? 我想在程序运行期间动态生成对象,我应该怎么办 请帮忙!急需TeeChartPro5.02FullSourceCode! 有没有人有Delphi7.0中,Rave Reports5.0详细使用教程吗 远程执行代码 修改COMCTRLS的源码
var Hnd : THandle;
aStr : PChar;
begin
aData.dwData := 123;
aData.cbData := 256;
GetMem(aData.lpData,256);
aStr := '测试';
StrLCopy(PChar(aData.lpData),aStr,256);
Hnd := FindWindow(PChar('TfrmReceive'),nil);
if Hnd <> 0 then
SendMessage(Hnd,WM_COPYDATA,0,Integer(@aData)) ;
FreeMem(aData.lpData,256);
end;接收方
procedure WMCopyData(var Msg : TWMCopyData);message WM_COPYDATA;procedure WMCopyData(var Msg : TWMCopyData);
begin
ShowMessage(PChar(Msg.CopyDataStruct.lpData));
end;你可以利用dwData当作是发送或接收方的一些约定
http://msdn.microsoft.com/en-us/library/aa365574(VS.85).aspx