Delphi获取句柄
发布时间：2011-06-16
转载文章请标明出处： http://code.01yun.com/asp0dm/asp0net0dm/20110616/55395.html
查找另外一个窗口的句柄： 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;
相关内容：