keybd_event(vk_Shift,0,0,0);//按下SHIFT键
//vk_Shift其实就是Delphi定义的一个常量,值为16,也就是SHIFT键的键码值
keybd_event(65,0,0,0); //A键的键码为65
keybd_event(65,0,2,0);
keybd_event(vk_Shift,0,2,0);//松开SHIFT键
//以上代码为Shift + A 这样的组合键 模拟代码
//按住就是只执行 按下 不执行松开
//要得到一个字符对应键的键码值,可用:
VkKeyScan("A"); //返回A键的键码值65
//对于特殊按键无可视字符的,可新建工程,在FormKeyDown事件里写代码将 Key这个变量显示出来即可。
//以下为FormKeyDown的定义原型:
FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
联系客服