请教模拟按键的问题

Question

我想在procedure TMainForm.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);中将'.'键模拟成Shift+Tab键的组合（即实现焦点前移），该如何写代码呢？我想通过调试取出Shift+Tab键的组合键的键值，但好象
没法调试。请大虾指点。

Answer 1

模拟键盘'a'输入keybd_event(65,0,KEYEVENTF_EXTENDEDKEY,0); //KEYDOWN，keybd_event(65,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); //KEYUP

Answer 2

Keybd_event(VK_SHIFT, 0, 0, 0);Keybd_event(VK_TAB,0, 0, 0);Keybd_event(VK_TAB,0, KEYEVENTF_KEYUP, 0);Keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);