Delphi实现获取句柄并发送消息的方法_Delphi

本文以实例形式详细说明了Delphi获取句柄并发送消息的方法，具体用法说明如下：

查找另外一个窗口的句柄：

handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄

查找子窗体：

childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题');

另外有个枚举子窗体的API，

EnumChildWindows(主创体句柄,@回调函数,用户参数);

用这个函数需要自己写一个回调的函数，比如：

function EnumChildProc(ahWND:HWND; param:LPARAM):boolean; stdcall;
sendmessage(handle,message,wl,rl)
unit Unit1; 

interface 

uses Windows,Messages,Tlhelp32,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;

type
 TForm1=class(TForm)
procedure FormCreate(Sender: TObject);

 private
 {
Private declarations
}
 public
 {
Public declarations
}
 end;
var Form1: TForm1;
implementation
{
$R *.DFM
}

procedure TForm1.FormCreate(Sender: TObject);
var a,b:PAnsiChar;
h:HWND;
begin
h:= FindWindow(nil,'abc.txt - 记事本');
h:= FindWindowEx(h,0,'edit',nil);
SendMessage(h,WM_SETTEXT,255,Integer(PChar('我来测度了')));
ShowMessage( IntToStr(h));
end;

SendMessage(TreeView.Handle,TVM_SETBKCOLOR,0,RGB(255,0,0));　设置TV背景颜色
SendMessage(Button.Handle,WM_LBUTTONDOWN,0,0);　　鼠标左键按下
SendMessage(Button.Handle,WM_LBUTTONUP,0,0);　　　鼠标左键抬起
SendMessage(Edit.Handle,WM_SETTEXT,255,Integer(PChar('abc')));　传递文本
SendMessage(Edit.Handle,WM_Char,Wparam('Q'),2);　　传递字符
SendMessage(Button.Handle,BM_SETSTYLE,BS_RADIOBUTTON,1);　　改变Button风格
SendMessage(ComboBox.Handle,CB_SETDropPEDWIDTH,300,0);　　改变CBDownWidth

WM_CUT、WM_COPY和WM_PASTE　　剪切，复制，粘帖

实现任意组合键：

keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);

SendMessageA说明: 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回

SendMessage所包含4个参数:   
1. hwnd 32位的窗口句柄窗口可以是任何类型的屏幕对象，因为Win32能够维护大多数可视对象的句柄
2. wMsg 用于区别其他消息的常量值，这些常量可以是Windows单元中预定义的常量，也可以是自定义的常量
3. wParam 通常是一个与消息有关的常量值，也可能是窗口或控件的句柄
4. lParam 通常是一个指向内存中数据的指针。由于WParm、lParam和Pointer都是32位的，因此，它们之间可以相互转换

wMsg函数详细说明： 

★WM_Create 创建一个窗口
★WM_DESTROY 当一个窗口被破坏时发送
★WM_MOVE 移动一个窗口
★WM_SIZE 改变一个窗口的大小
★WM_ACTIVATE 一个窗口被激活或失去激活状态
★WM_SETFOCUS 一个窗口获得焦点
★WM_KILLFOCUS 一个窗口失去焦点
★WM_ENABLE 一个窗口改变成Enable状态
★WM_SETREDRAW 设置窗口是否能重画
★WM_SETTEXT 应用程序发送此消息来设置一个窗口的文本
★WM_GETTEXT 应用程序发送此消息来复制对应窗口的文本到缓冲区
★WM_GETTEXTLENGTH 得到与一个窗口有关的文本的长度（不包含空字符）
★WM_PAINT 要求一个窗口重画自己
★WM_CLOSE 当一个窗口或应用程序要关闭时发送一个信号
★WM_QUERYENDSESSION 用户选择结束对话框或程序自己调用ExitWindows函数
★WM_QUIT 用来结束程序运行
★WM_QUERYOPEN 用户窗口恢复以前的大小位置时，把此消息发送给某个图标
★WM_ERASEBKGND 当窗口背景必须被擦除时（例在窗口改变大小时）
★WM_SYSCOLORCHANGE 当系统颜色改变时，发送此消息给所有顶级窗口
★WM_QUERYENDSESSION 消息后，此消息发送给应用程序，通知它对话是否结束
★WM_SHOWWINDOW 当隐藏或显示窗口是发送此消息给这个窗口
★WM_ACTIVATEAPP 发此消息给应用程序哪个窗口是激活的，哪个是非激活的   
★WM_FONTCHANGE 当系统的字体资源库变化时发送此消息给所有顶级窗口
★WM_TIMECHANGE 当系统的时间变化时发送此消息给所有顶级窗口
★WM_CANCELMODE 发送此消息来取消某种正在进行的摸态（操作）
★WM_SETCURSOR 如果鼠标引起光标在某个窗口中移动
★WM_ENDSESSION 当系统进程发出且鼠标输入没有被捕获时，就发消息给某个窗口
★WM_MOUSEACTIVATE 当光标在某个非激活的窗口中而用户正按着鼠标的某个键发送此消息给当前窗口
★WM_CHILDACTIVATE 送此消息给MDI子窗口当用户点击此窗口的标题栏，或当窗口被激活，移动，改变大小
★WM_QUEUESYNC 此消息由基于计算机的训练程序发送,通过 WH_JOURNALPALYBACK的hook程序分离出用户输入消息
★WM_GETMINMAXINFO 此消息发送给窗口当它将要改变大小或位置   
★WM_PAINTICON 发送给最小化窗口当它图标将要被重画
★WM_ICONERASEBKGND 此消息发送给某个最小化窗口，仅当它在画图标前它的背景必须被重画
★WM_NEXTDLGCT★发送此消息给一个对话框程序去更改焦点位置
★WM_SPOOLERSTATUS 每当打印管理列队增加或减少一条作业时发出此消息   
★WM_DRAWITEM 当button，combobox，listbox，menu的可视外观改变时发送
★WM_MEASUREITEM 当button, combobox, listbox, listview control, or menuitem 被创建时
★WM_VKEYTOITEM 此消息有一个LBS_WANTKEYBOARDINPUT风格的发出给它的所有者来响应WM_KEYDOWN消息   
★WM_CHARTOITEM 此消息由一个LBS_WANTKEYBOARDINPUT风格的列表框发送给他的所有者来响应WM_CHAR消息   
★WM_SETFONT 当绘制文本时程序发送此消息得到控件要用的颜色
★WM_GETFONT 应用程序发送此消息得到当前控件绘制文本的字体
★WM_SETHOTKEY 应用程序发送此消息让一个窗口与一个热键相关连
★WM_GETHOTKEY 应用程序发送此消息来判断热键与某个窗口是否有关联
★WM_QUERYDRAGICON 此消息发送给最小化窗口，当此窗口将要被拖放而它的类中没有定义图标，应用程序能返回一个图标或光标的句柄，当用户拖放图标时系统显示这个图标或光标
★WM_COMPAREITEM 发送此消息来判定combobox或listbox新增加的项的相对位置
★WM_COMPACTING 显示内存已经很少了
★WM_WINDOWPOSCHANGING 发送此消息给那个窗口的大小和位置将要被改变时，来调用setwindowpos函数或其它窗口管理函数
★WM_WINDOWPOSCHANGED 发送此消息给那个窗口的大小和位置已经被改变时，来调用setwindowpos函数或其它窗口管理函数
★WM_POWER 当系统将要进入暂停状态时发送此消息
★WM_COPYDATA 当一个应用程序传递数据给另一个应用程序时发送此消息
★WM_CANCELJOURNA 当某个用户取消程序日志激活状态，提交此消息给程序
★WM_NOTIFY 当某个控件的某个事件已经发生或这个控件需要得到一些信息时，发送此消息给它的父窗口   
★WM_INPUTLANGCHANGEREQUEST 当用户选择某种输入语言，或输入语言的热键改变
★WM_INPUTLANGCHANGE 当平台现场已经被改变后发送此消息给受影响的最顶级窗口
★WM_TCARD 当程序已经初始化windows帮助例程时发送此消息给应用程序
★WM_HELP 此消息显示用户按下了F1，如果某个菜单是激活的，就发送此消息个此窗口关联的菜单，否则就发送给有焦点的窗口，如果当前都没有焦点，就把此消息发送给当前激活的窗口
★WM_USERCHANGED 当用户已经登入或退出后发送此消息给所有的窗口，当用户登入或退出时系统更新用户的具体设置信息，在用户更新设置时系统马上发送此消息
★WM_NOTIFYFORMAT 公用控件，自定义控件和他们的父窗口通过此消息来判断控件是使用ANSI还是UNICODE结构

function EnumChildWindowsProc(hwnd, lparam: Integer): Boolean;
  var
 buffer: array[0..255] of char;
  begin
 Result := True;
 GetClassName(hwnd,buffer,256);
 if StrPas(Buffer)='Edit' then
 begin
 SendMessage(hwnd,WM_GETTEXT,256,lparam);
 Result:=False;
 end;
  end;  

  procedure TForm1.Button1Click(Sender: TObject);
  var
 hwnd: Integer;
 buffer: array[0..255] of char;
  Begin
 hwnd := FindWindow('CabinetWClass',nil);
 if hwnd<> 0 then
 begin
 EnumChildWindows(hwnd,@EnumChildWindowsProc,Longint(@buffer[0]));
 Caption := StrPas(buffer);
 end;
  end;

以上是小编为您精心准备的的内容，在的博客、问答、公众号、人物、课程等栏目也有的相关内容，欢迎继续使用右上角搜索按钮进行搜索delphi
， 句柄
， 发送
， 消息
获取
vb 窗口句柄发送消息、易语言向句柄发送消息、delphi 发送按键消息、delphi 微信发送消息、delphi 发送消息，以便于您获取更多的相关知识。

时间： 2024-10-29 11:55:17

Delphi实现获取句柄并发送消息的方法_Delphi的相关文章

Delphi获取句柄并发送消息!

Delphi获取句柄并发送消息 查找另外一个窗口的句柄: handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄查找子窗体:childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题'); 另外有个枚举子窗体的API,EnumChildWindows(主创体句柄,@回调函数,用户参数);用这个函数需要自己写一个回调的函数,比如:function EnumChildProc(ahWND:HWND; param:L

怎么获取SysTreeView32控件下所有节点句柄并发送消息选中单击

问题描述 如图左边是一个SysTreeView32控件,我想获取该控件下所有节点的句柄,并能发送消息选中单击某个指定名称节点求指点...小菜鸟刚接触API不久在线等.....求源码#regionAPI/*API的定义*////<summary>///本质是FindWindow,查找目标句柄///</summary>[DllImport("user32.dll",EntryPoint="FindWindow",SetLastError=true

利用servlet给手机发送消息 此方法可以实现么

问题描述 在工程中导入了commons-httpclient-3.1.jar前台页面中有多个传值利用servlet接收并在servlet中给手机发送消息大概流程如此然后在doPost函数中添加了发送手机消息的代码HttpClientclient=newHttpClient();PostMethodpost=newPostMethod("http://sms.webchinese.cn/web_api/");post.addRequestHeader("Content-Type

Delphi下OpenGL2d绘图之画线的方法_Delphi

一.前言: Delphi画线方法与画点基本上是相同的.区别在于glBegin()的参数.绘制的框架代码可以参考Delphi下OpenGL2d绘图初始化中的代码,地址为http://www.jb51.net/article/52141.htm.修改的部份为 Draw 函数的内容. 二.画线步骤: GL_LINES:把每一个顶点作为一个独立的线段,顶点2n-1和2n之间共定义了n条线段,总共绘制N/2条线段 GL_LINE_STRIP:绘制从第一个顶点到最后一个顶点依次相连的一组线段,第n和n+1个

Delphi下OpenGL2d绘图之画四边形的方法_Delphi

一.前言: Delphi实现画四边形的方法基本上与前几遍文字代码是相同的.其区别知识在于glBegin()的参数"GL_QUADS".绘制的框架代码可以使用Delphi下OpenGL2d绘图初始化中的代码,地址为http://www.jb51.net/article/52141.htm.修改的部份为 Draw 函数的内容. 二.画四边形方法: 使用GL_QUADS:绘制由四个顶点组成的一组单独的四边形.顶点4n-3.4n-2.4n-1和4n定义了第n个四边形.总共绘制N/4个四边形.这

Delphi实现窗口文字淡入淡出渐变效果的方法_Delphi

本文所述实例为Dlephi实现的窗口渐变文字效果,文字可以不停的变化,颜色由浅入深,由清淅变模糊,文字渐变的时间可在代码中自己调整.主要实现代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer;

环信2.1.8有时给特定用户发送消息失败。

问题描述 本帖最后由 chenweixuan2014 于 2015-5-8 16:20 编辑 我用的环信2.1.8的sdk,在测试过程中遇到如下问题:问题1:在网络情况不好的时候给A发消息,A可能会收到多条消息.问题2:在网络情况特别不好的适合发给A消息,提示消息发送失败(网络连接错误),然后网络好了之后,再给A发送任何消息,立刻提示发送失败,但是这时候可以发送群聊或者给B发消息.error log 如下:IllegalStateException: Not connected to serve

spy-给窗口发送消息，不能获得控件句柄

问题描述 给窗口发送消息,不能获得控件句柄 很多软件使用spy进行识别时,只能显示为一个整体,如果我想给这类窗口进行发送消息,实现给文本框输入值等操作时该怎么办? 解决方案 如果你只能看到窗体的句柄,那么说明这种程序中的控件其实根本不存在,是画出来的.这种程序叫做directui程序. 你只能模仿鼠标键盘操作. 解决方案二: 不是说所有的窗口都支持SPY++来抓取窗口,它一般是windows标准窗口才能获取控件,以及发送消息等. 而还有很多其他界面库等,根本不会处理消息机制.所以你也不能直接发送

delphi发送消息控制滚动条使用示例

本文为大家详细介绍下delphi实现发送消息控制滚动条,主要函数及用法如下,感兴趣的朋友可以参考下哈   1.Perform 函数 复制代码 代码如下: DBGrid1.Perform(WM_VSCROLL,SB_PAGEDOWN,0); //控制滚动条,向后翻页 DBGrid1.Perform(WM_VSCROLL,SB_PAGEUP,0); //控制滚动条,向前翻页 2.SendMessage 函数 复制代码 代码如下: SendMessage(DBGrid1.Handle,WM_VSCRO