哪位大侠有delphi用模拟键盘输入的完整函数？？？(200)

哪位大侠有delphi用模拟键盘输入的完整函数

用API即可keybd_eventThis function synthesizes a keystroke. The system can use such a synthesized keystroke to generate a WM_KEYUP or WM_KEYDOWN message. VOID keybd_event( BYTE bVk, BYTE bScan, DWORD dwFlags, DWORD dwExtraInfo );