发信人: 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;
---- 问彩云何处飞,愿成风永追随。
有奇缘能相聚,死也无悔。
我柔情深似海,你痴心可问天。
誓相守长缱绻,岁岁年年。 |
|