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

时间:2010-01-31 10:00:52  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:cing="0" bordercolordark="#ffffff" cellpadding="5" width="99%" bgcolor="#e8ffe8" border="1">string ls_Classname,ls_WindowName ulong ll_winhandleuint  li_resultsetnull(ls_ClassName) ls_WindowName ="Form1" //delphi程序窗口名称    ll_winhandle = findwindow(ls...
  正文:在制作一个小程序的过程中,遇到程序间通讯的问题,而且两个程序分别是用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;

"程序间相互通讯问题的解决"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12676.html


关键字:

关于《程序间相互通讯问题的解决》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td