发信人: lihai155(天琴)
整理人: teleme(2001-04-17 22:54:31), 站内信件
|
【 在 gardenia 的大作中提到：】
:我使用以下函数来模拟键盘按ESC：
: keybd_event(VK_ESCAPE,MapVirtualKey(VK_ESCAPE,0),0,0);
:但是发现一个问题，就是一旦使用了keybd_event，
:Windows其他应用程序（如资源管理器）对鼠标双击或键盘回车事件全部没反应。
:请问有什么办法解决这个问题？或者可以使用另外的函数模拟键盘按键？
:
:......
在按键之后要释放按键.
下面是模拟按下了'f'键:
var
vk:byte;
sk:word;
dwExtraInfo:LongInt;
begin
vk:=vkKeyScan('f');
sk:=MapVirtualKey(vk,0);
dwExtraInfo:=(sk shl 8) + 1;
Keybd_Event(vk,sk,0,dwExtraInfo); //按下了 f
Keybd_Event(vk,sk,KEYEVENTF_KEYUP,dwExtraInfo); //释放 f
end;
----
问彩云何处飞，愿成风永追随。
有奇缘能相聚，死也无悔。
我柔情深似海，你痴心可问天。
誓相守长缱绻，岁岁年年。 |
|