Delphi中SendMessage使用技巧

Windows系统是由消息机制驱动的 每个线程如果建立了一个窗口 则由系统分配一个消息队列用于窗口消息的处理 另外 消息也可以不经过消息队列而利用SendMessage函数直接发送给窗口 窗口过程将处理这个消息 但只有当消息被处理之后 SendMessage才能返回到调用程序 下面结合两个Delphi程序 讨论如何利用SendMessage向控件发送消息和控件对世蠢卜这种消息的响应

用SendMessage向控件发送消息

在编程中 有时需要控件以特殊的风格显示 而这种要求又无法通过设置控件属性实现 例如 读取客户列表并显示在下拉框供用户选择 如果下拉框宽度太窄 则不能全部显示 如果将宽度定得太宽 界面又有不紧凑之感 因档历此希望能在运行期动态地确定下拉框显示区域的宽度 这种要求如果不用SendMessage函数就很难实现

解决办法是 在读数据库时计算字符串的显示宽度 用显示宽度的最大值确定下拉框显示区域的宽度 再用SendMessage函数向下拉框发送CB_SETDROPPEDWIDTH消息和宽度值 下拉框根据消息中传来的信息 就可以进行正确显示

部分源程序代码如下 　i:= //计数MaxWidth:= Query SQL Clear　 Query SQL Add( select Company from Customer )Query Open//读客户列表到下拉框while not Query Eof do begin ComboBox Items add(Query FieldByName( Company ) AsString)Width:=ComboBox Font Size ＊ Length(ComboBox Items[i])if Width>MaxWidth then MaxWidth:=Width//找出最大值 Query Nexti:=i＋ endQuery CloseComboBox Text:=ComboBox Items[ ]//发送消息以确定显示区域的宽度SendMessage(ComboBox Handle CB_SETDROPPEDWIDTH MaxWidth )    利用SendMessage函数还可以实现一些有趣的效果 例如在按钮的Click事件中加入如下语句

SendMessage（Button Handle BM_SETSTYLE

BS_RADIOBUTTON ）

运行后点击按钮 就可以把按钮变成一个收音机按钮

控件接收SendMessage消息

上面讨论了用SendMessage向控件发送消息的过程 但凡事有利就有弊 用SendMessage发送的消息在处理上存在着一定困难 因为该消息不经过消息队列 所以无法用OnMessage方式来指定对消息的响应 甚至用HookMainWindow也不行 因为消息直接发送到控件 绕过了主窗体 要对这种类型的消息作出响应 需要重载控件的WndProc方法搜穗

例如 对于一个列表框 滚动条的滚动消息就是用SendMessage方式发送的 因此该消息不在TlistBox的事件列表中 下面是处理控件响应该滚动消息的具体步骤

首先从TlistBox继承一个TmyListBox类 并重载WndProc方法 在程序中加入下列定义 typeTMyListBox=class(TListBox)privateprocedure WndProc(var Msg: TMessage)　override//重载WndProc 处理发送到控件的消息publicend    其中WndProc方法指定控件对消息的响应 输入参数是TMessage类型 该数据类型是一个记录 包含了消息代码和消息的参数 消息参数可以用Longint或Word方式获得

对滚动事件做出响应 在WndProc方法中加入如下处理代码 　if (Msg Msg=WM_VSCROLL) and　(Msg WParamLo=SB_ENDSCROLL) then　begin//获得鼠标位置对应的列ItemIndex:=ItemAtPos(Point true)　Form Edit Text:=inttostr(ItemIndex)inherited　endelse inherited    当程序接收到WM_VSCROLL消息 且WParamLo参数为SB_ENDSCROLL时 表示竖直滚动条停止滚动 就可以用ItemAtPos方法确定与鼠标位置对应的ItemIndex ItemAtPos方法的Point参数是一个TPoint类型的变量 用来保存鼠标的位置

lishixinzhi/Article/program/Delphi/201311/24698

如果两个程序都是你写的当然可以使用进程通讯技术，发送和接收数据。

但是你要想向第三方进程发送数据，可能要使用API函数了。要查找到进程的句柄，然后友睁如果这找到你要接收数据的类型，然后发送数凳消据。当然可好粗岁能会失败，我自己的情况是如果都是DELPHI写的程序，可以使用API向另个一程序的文本框发送信息。

如果是注入的话，可能就不是进程通讯了，属于程序破解的范畴。

如果是TCP通讯的这种情况，你可以截取数据包，并伪造这个数据包发送。。这需要分析协议了

findwindow 找到这个窗口的句柄

findwindowex找个找个窗口里按旁隐钮的句柄

sendmessage或 postmessage 发送消息

也可以用spy++直接找到这运猜厅个窗口兆键和 按钮的ID 发送消息过去

---