请教模拟按键的问题

[terrace]

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

[李_军]

你用keybd_event好了

[cow8063]

模拟键盘'a'输入

keybd_event(65,0,KEYEVENTF_EXTENDEDKEY,0); //KEYDOWN，

keybd_event(65,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); //KEYUP

[李_军]

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

[tw829]

up up up