//等待键盘缓冲区为空
OutPortB(KBC_KEY_CMD, $D2); //发送键盘写入命令
KBCWait4IBE;
OutPortB(KBC_KEY_DATA, (btScancode or $80)); //写入按键信息,释放键
end;
begin
KeyDown(vKeyCode);
KeyUp(vKeyCode);
end;
initialization
EnableDebugPrivilege(True);
finalization
EnableDebugPrivilege(False);
end.