delphi模拟按键

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);