精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>Re:模拟键盘按键

主题:Re:模拟键盘按键
发信人: 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;


----
问彩云何处飞,愿成风永追随。
有奇缘能相聚,死也无悔。
我柔情深似海,你痴心可问天。
誓相守长缱绻,岁岁年年。

[关闭][返回]