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) [delphi:collapse:showcolumns] + expand sourceview plaincopy·········10········20········30········40········50········60········70········80········90········100·······110·······120·······130·······140·······150 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);　　改变CBDownWidthWM_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;

通过 Wiz 发布