sp;  //这个用来模拟按下键，参数vKeyCoad传入按键的虚拟码
  var
    btScancode                          : Cardinal;
  begin
    btScancode := MapVirtualKey(vKeyCoad, 0);
    KBCWait4IBE;                                                                                    //0xD2:写键盘缓冲区,0xD3:写鼠标缓冲区,发送数据前应该先等待键盘缓冲区为空
    OutPortB(KBC_KEY_CMD, $D2);                                                                     //发送键盘写入命令, SetPortVal函数用于向端口写入数据，它的用法是SetPortVal 端口号,欲写入的数据，写入数据的长度
    KBCWait4IBE;
    OutPortB(KBC_KEY_DATA, btScancode);                                                             //写入按键信息,按下键
  end;

  procedure KeyUp(vKeyCoad: Cardinal);                                                              //这个用来模拟释放键，参数vKeyCoad传入按键的虚拟码
  var
    btScancode                          : Cardinal;
  begin
    btScancode := MapVirtualKey(vKeyCoad, 0);
    KBCWait4IBE;