开发学院软件开发Delphi 程序间相互通讯问题的解决 阅读

程序间相互通讯问题的解决

 2006-02-04 14:41:51 来源:WEB开发网   
核心提示: 在制作一个小程序的过程中,遇到程序间通讯的问题,程序间相互通讯问题的解决,而且两个程序分别是用pb跟delphi开发的,查阅网上资料,根据程序对于响应时间的要求,我选择了postmessage函数来解决通讯问题

  在制作一个小程序的过程中,遇到程序间通讯的问题,而且两个程序分别是用pb跟delphi开发的,查阅网上资料,根据程序对于响应时间的要求,我选择了postmessage函数来解决通讯问题,代码如下

pb:

  string ls_Classname,ls_WindowName
   ulong ll_winhandle
  uint  li_result
   setnull(ls_ClassName)
   ls_WindowName ="Form1" //delphi程序窗口名称
   ll_winhandle = findwindow(ls_ClassName,ls_WindowName)

if ll_winhandle>0 then //拨通
  li_result = RegisterWindowMessage('1111') //注册系统消息,返回系统唯一消息号

  post(ll_winhandle,li_result,0,0)
  messagebox("提示","知道")
else
 messagebox("提示","没有找到")
end if

======================================

delphi:

声明部分:

PRivate
   Msg: LongInt;
   hWndC : THandle;
   { Private declarations }
  protected
   procedure WndProc(var Message: TMessage); override;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Msg := RegisterWindowMessage('1111');//返回系统唯一消息号,1111为自定义消息内容
  Self.BringToFront;

end;

procedure TForm1.WndProc(var Message: TMessage);
 var
  mypt:Tpoint;
  s:string;
begin

  if Message.msg = msg then begin
    ShowMessage(inttostr(message.lparam) );
   end ;


   inherited;
 end;

Tags:程序 相互 通讯

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接