找另外一个窗口的句柄: 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 当系统的时间变化时发送此消息给所有顶级窗口
procedure TForm1.Button1Click(Sender: TObject); |
|