delphi 向其他程序发送模拟按键作者：admin 来源：未知 日期：2010/5/6 9:32:31 人气：2057 标签： | | 
向其他程序发送模拟按键：
1、用keybd_event：
var
h : THandle;
begin
h := FindWindow('TFitForm', '1stOpt - [Untitled1]');
SetForegroundWindow(h);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
keybd_event(VK_F9, MapVirtualKey(VK_F9, 0), 0, 0);
keybd_event(VK_F9, MapVirtualKey(VK_F9, 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);
end;
选找到目标程序的句柄h，在应用Keybd_event之前必须先把目标程序设为当前活动窗口。(如果不想看见的话，把目标程序的位置用SetWindowLong设置在屏幕之外.)
2、用SendMessage、PostMessage：不需目标置为最前。
SendMessage(h,WM_KEYDOWN,VK_F9,0);
PostMessage(h,WM_KEYDOWN,VK_F9,0);
发送组合键：PostMessage(h,WM_SYSKEYDOWN,VK_F9,$10000000);//试验不成功
Ctrl ： $10000000;
Shift： $08000000;
Alt： $20000000
如打开菜单ALT－F，则要WM_SYSKEYDOWM,：PostMessage(h,WM_SYSKEYDOWN,70,$20000000);才行。（//试验成功）
3、CTL键组合发送不成功。
4、向后台应用程序发送按键总结：
4.1 单个按健：PostMessage(h,WM_KEYDOWN,VK_F9,0);
4.2ALT+按键：PostMessage(h,WM_SYSKEYDOWN,70,$20000000);
4.3CTL+按键：暂时模仿如下，基本可行。但不用sleep(10)，有时行，有时不行。换用SendMessage却不行，WHY？
if hwnd<>0 then
begin
keybd_event(VK_CONTROL,0,0,0);
PostMessage(hwnd,WM_KEYDOWN,VK_F9,0);
PostMessage(hwnd,WM_KEYUP,VK_F9,0);
sleep(10);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
end;
说明：
键盘事件消息可以分为“击键”和“字符”两类。对于可以显示字符的击键组合，Windows不仅向程序发送击键消息，还发送字符消息。有些键不产生字符，这些键包括shift键、Fn功能键、光标移动键和特殊字符如Insert和Delete。
击键消息包括WM_KEYDOWN、WM_KEYUP、WM_SYSKEYDOWN、WM_SYSKEYUP四种类型。WM_KEYDOWN和WM_KEYUP消息通常是在按下或释放不带Alt键的键时产生；WM_SYSKEYDOWN和WM_SYSKEYUP消息通常由与Alt组合的击键产生，这些键激活程序菜单或系统菜单上的选项，或切换活动窗口，也可以用作系统菜单加速键。由于Windows处理所有Alt键的功能，应用程序无需捕获这些消息。对于4类击键消息，wParam是虚拟键代码，代表按下或释放的键，而lParam包含击键的其他数据。如果按住一个键不放使得自动重复功能生效，那么该键最后被释放时，Windows会给窗口过程发送一系列的WM_KEYDOWN（或WM_SYSKEYDWON）消息和一个WM_KEYUP（或WM_SYSKEYUP）消息。
|
|
