Windows操作系统中程序间消息的应用
总第８２期张明：Ｗｉｎｄｏｗｓ操作系统中程序问消息的应用
ｐｒｏｃｅｄｕｒｅＴＦｏｒｍｌ．ＢｕｔｔｏｎｌＣｌｉｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｅｔ）；
ｖｓｒ
。ｈ：ＨＷＮＤ；
ｋ酒ｎ
ｈ：＝ｆｉｎｄｗｉｎｄｏｗ（０，’ＴｅｎｃｅｎｔＭｅｓｓｅｎｇｅｒ’）；／／以访问腾讯ＴＭ为例
ｉｆｈ＜＞０ｔｈｅｎ
ｂｅｇｉｎ
ｅｎｕｍｃｈｉｌｄｗｉｎｄｏｗｓ（ｈ，＠ｐｒｏｃ，０）；
ｅｎｄ’
ｅｌｓｅ
ｓｈｏｗｍｅｓｓａｇｅ（’请先运行ＴＭ登录程序！’）；ｅｎｄ；
程序运行效果如下（如图１所示）：
图１枚举子窗体运行界面
如果确定获取某一窗口的句柄，也可以通过鼠标位置来获取．此时需要ＷｉｎｄｏｗＦｒｏｍ－Ｐｏｉｎｔ（）函数来实现．
例如：’ｐｒｏｃｅｄｕｒｅ
ＴＦｏ衄Ｉ．ＦｏｒｍＭｏｕｓｅＭｏｖｅ（Ｓｅｎｄｅｒ：ＴＯｂ—ｊｅｅｔ；Ｓｈｉｆｔ：ＴＳｈｉｆｔＳｔａｔｅ；Ｘ，
Ｙ：Ｉｎｔｅｇｅｒ）；
ｂｅｇｉｎ
ｇｅｔｅｕｒｓｏｒｐｏｓ（ｔｐ）；
ｈｄ：＝ＷｉｎｄｏｗＦｒｏｍＰｏｉｎｔ（ｔｐ）；
ｉｆｈｄ＝０ｔｈｅｎｆｏｒｍｌ．ｃａｐｔｉｏｎ：；’捕获窗体句柄不成功’；
ｅｎｄ；
ｐｒｏｃｅｄｕｒｅＴＦｏ瑚Ｉ．ＦｏｒｍＭｏｕｓｅＵｐ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ；Ｂｕｔｔｏｎ：ＴＭｏｕｓｅＢｕｔｔｏｎ；
Ｓｈｉｆｔ：ＴＳｈｉｆｔＳｔａｔｅ；Ｘ，Ｙ：Ｉｎｔｅｇｅｒ）；
ｖａｔ
ｆｉｔｌｅ：ｓｔｒｉｎｇ；
ｃｌａｓｓｎａｍｅｌ，ｔｉｆｌｅｌ：ａｒｒａｙ［Ｏ．．ｚ５５］ｏｆｅｈｏｘ；
姊ｎ
ｓｅｔｌｅｎｇｔｈ（ｔｉｔｌｅ，１００）；
ＳｔａｔｉｃＴｅｘｔ４．Ｃａｐｔｉｏｎ：＝ｉｎｔｔｏｓｔｒ（ｈｄ）；
ｓｅｎｄｍｅｓｓａｇｅ（ｈｄ，ＷＭ－Ｇｌ玎脚，１００，ｉｎｔｅｇｅｒ（ｔｉ－ｔｉｅ））；、
ｉｆｔｉｔｌｅ＝”ｔｈｅｎ
ｂｅｇｉｎ
ｇｅｔｗｉｎｄｏｗｔｅｘｔ（ｈｄ，ｔｉｔｈｌ，１００）；
ＳｔａｔｉｅＴｅｘｔ５．Ｃａｐｔｉｏｎ：：ｆｉｆｌｅｌ；
ｅｎｄ
ｅｌｓｅ
ＳｔａｔｉｃＴｅｘｔ５．Ｃａｐｔｉｏｎ：＝ｆｉｄｅ；
７０
长沙大学学报２００８年３月
ｇｅｔｃｌａｓｓｎａｍｅ（ｈｄ，ｅｌａｓｓｎａｍｅｌ，２５５）；ＳｔａｔｉｅＴｅｘｔ６．Ｃａｐｔｉｏｎ：＝ｃｌａｓｓｎａｍｅｌ；ｅｎｄ；
程序运行效果如下图（如图２所示）：
图２获取鼠标所指窗口句柄等信息
（２）向其他进程发送消息
根据上例获取所需要的窗口句柄后，程序员即
可对其发送消息，此时需通过ＳｅｎｄＭｅｓｓａｇｅ（）或
Ｐｏｓｔ＿Ｍｅｓｓａｇｅ（）来完成．
ＳｅｎｄＭｅｓｓａｇｅ将指定的消息发送到一个或多个窗口，此函数为指定的窗口调用窗口程序，直到窗口
程序处理完消息再返回．而函数Ｐｏｓｔ＿Ｍｅｓｓａｇｅ不同，
将一个消息寄送到一个线程的消息队列后立即返回．本例采用ＳｅｎｄＭｅｓｓａｇｅ（）来向其发送消息．＋Ｓｅｎｄ＿Ｍｅｓｓａｇｅ（ｈＷｎｄ：ＨＷＮＤ，Ｍｓｇ：ＵＩＮＴ，ｗＰａｒａｍ：ＷＰＡＲＡＭ，ＩＰａｒａｍ：ＬＰＡＲＡＭ）：Ｉ＿ＢＥＳＵＬＴ；
ｈＷｎｄ：其窗口程序将接收消息的窗口的句柄．
如果此参数为ＨＷＮＤ—ＢＲＯＡＤＣＡＳＴ，则消息将被发送到系统中所有顶层窗口，包括无效或不可见的非白．身拥有的窗口、被覆盖的窗口和弹出式窗口，但不被发送到子窗口．
Ｍｓｇ：指定被发送的消息．
ｗＰａｒａｍ：指定附加的消息指定信息．
ＩＰａｒａｍ：指定附加的消息指定信息．
返回值：返回值指定消息处理的结果，依赖于所发送的消息．
如果指定的窗口是由调用线程创建的，则窗口
程序立即作为子程序调用．如果指定的窗口是由不同线程创建的，则系统切换到该线程并调用恰当的窗口程序．线程间的消息只有在线程执行消息检索代码时才被处理．发送线程被阻塞直到接收线程处理完消息为止．
通过上例获取到某程序登录界面各子窗口句柄后，可通过向用户名、口令文本框以及提交按钮发送消息来实现自动登录．
在回调函数中可通过ＣｌａｓｓＮａｍｅ或ＴｉｔｌｅＮａｍｅ来确定，用户名的输入框一般为ＴＥｄｉｔ或ＴＣｏｍｂｏＢｏｘ类，如果为后者，一般均有下拉列表供选择，口令的输入框一般为ＴＥｄｉｔ类，而登录按钮一般为ＴＢｕｔｔｏｎ类，并且可通过其ＴｉｔｌｅＮａｍｅ组合确定．
ｖａｒ
Ｆｏｒｍｌ：ＴＦｏｒｍｌ；
ＢｕｔｔｏｎＤｏｗｎ：ｉｎｔｅｇｅｒ；／／定义一个全局变量，用来存储按钮句柄
ｉｍｐｌｅｍｅｎｔａｔｉｏｎ
｛￥Ｒ＊．ｄｆｍ｝
ｆｕｎｃｔｉｏｎｐｒｏｃ（ｈ：ｈｗｎｄ；ｌ：ＬＰａｒａｍ）：ｂｏｏｌ；ｓｔｄｃａＵ；
ｖａｌ＂
，一
ｃｌａｓｓｎａｎ砣，ｔｉｔｌｅｎａｍｅ：ａ珊ｙ［Ｏ．．２５５］ｏｆｃｈａｒ；
ｂｅｇｉｎ
ｉｆｃｌａ￥ｓｎａｌＴｌｔｅ＝’ＴＥｄｉｔ’ｔｈｅｎｓｅｎｄｍｅｓｓａｇｅ（ｈ，ＷＭ—ＳＶＩＴＥＸＴ，０，ＬＰＡＲＡＭ（ｆｏｒｍｌ．Ｅｄｉｔｌ．Ｔｅｘｔ））；
／／为Ｅｄｉｔ设置文本内容
ｉｆｔｉｔｌｅｎａｍｅ＝’登录’ｔｈｅｎＢｕｔｔｏｎＤｏｗｎ：＝ｈ；
／／为防止先枚举到按钮，可先将其句柄保留下
来
Windows操作系统中程序间消息的应用
作者：张明
作者单位：长沙大学电子与通信工程系,湖南,长沙,400003
刊名：
长沙大学学报
英文刊名：JOURNAL OF CHANGSHA UNIVERSITY
年，卷(期)：2008,22(2)
参考文献(2条)
1.同志工作室Delphi5 API函数开发实例 2001
2.孙鑫VC 讲座笔记--WINDOWS 程序内部运行原理
本文链接：https://www.360docs.net/doc/667543218.html,/Periodical_csdxxb200802022.aspx