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;