今天图老师小编要向大家分享个程序间相互通讯问题的解决教程，过程简单易学，相信聪明的你一定能轻松get！
【 tulaoshi.com - 编程语言 】
在制作一个小程序的过程中，遇到程序间通讯的问题，而且两个程序分别是用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_winhandle0 then //拨通
li_result = RegisterWindowMessage('1111') //注册系统消息，返回系统唯一消息号
post(ll_winhandle,li_result,0,0)
messagebox("提示","知道")
else
messagebox("提示","没有找到")
end if
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
delphi：
声明部分：
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/） 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.tulaoshi.com/n/20160219/1626271.html
看过《程序间相互通讯问题的解决》的人还看了以下文章 更多>>
