|
procedure TForm1.Button1Click(Sender: TObject);
var
Myhwnd:HWND;
begin
Myhwnd := FindWindow('ElementClient Window',nil);
if Myhwnd <> 0 then
begin
{按下键}
PostMessage (Myhwnd, WM_KEYDOWN, $31, 0);
{松开键}
PostMessage (Myhwnd, WM_KEYUP, $31, 0);
end else showmessage('失败');
end;
然后呢，我就兴致勃勃就试试发送按键到记事本，心想：我们都是按键盘输入的，模拟按键肯定行。。
结果，发送按键后，竟然没有收到任何消息。。。。汗。。。出什么问题了？我再检查下代码，发现没问题啊，再在网上看看，才知道问题原因。。。。原来记事本的确能接收按键信息，不过。。只是接受到按键信息，而不是字符信息。。。如果要记事本有字符显示，发送的应该是字符才对。。。汗。。。我恍然大悟。
真正的要这些写：
procedure TForm1.Button2Click(Sender: TObject);
var
Myhwnd:HWND;
begin
Myhwnd := FindWindow('Notepad','方法！.txt - 记事本');
Myhwnd:= FindWindowEx(Myhwnd,0,'edit',nil);
if Myhwnd <> 0 then
begin
SendMessage(Myhwnd,WM_Char,Wparam('Q'),2);//传递字符
end;
end;
由于接收字符是记事本的EDIT窗口。。所以还需要定位在那个EDIT才行。
终于能发送字符了。。。。呵呵，下面再提供一些另外的东西，需要日后有帮助。。
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 此消息由基于计算机的训练程序发送,通过 | 
