HELP:关于程序间消息传递问题(delphi)

程序中的通用数据段
const
     Msg_int=WM_USER +100;
type
   Ttemprecord=record
   var1:integer;
   var2:integer;
   var3:integer;
   var4:integer;
   var5:integer;
    end;
   
var
  temp_record:Ttemprecord;
 

程序1中使用
    PostMessage(程序2_hwnd,Msg_int,w_id,longint(@temp_record));
    将消息发送给程序2

程序2中
procedure rec_msg(var msg:tmessage);message Msg_int;

procedure TForm1.rec_msg(var msg:tmessage);
var
 i:integer;
begin
  i:=msg.WParam;
  {
  如何将程序1中传递的结构体中数据取出
  }
  temp_record:=addr(msg.LParam);
end;

阅读更多
文章标签: delphi integer user
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭