利用Keybd_event函数模拟按键

 1 procedure KEy_press(bVk: Byte; State: Byte); stdcall;
 2  const
 3   {增添系统未定义的键值}
 4   KEYEVENTF_KEYDOWN = 0;
 5   VK_0 = $30; VK_1 = $31; VK_2 = $32; VK_3 = $33;
 6   VK_4 = $34; VK_5 = $35; VK_6 = $36; VK_7 = $37;
 7   VK_8 = $38; VK_9 = $39; VK_A = $41; VK_B = $42;
 8   VK_C = $43; VK_D = $44; VK_E = $45; VK_F = $46;
 9   VK_G = $47; VK_H = $48; VK_I = $49; VK_J = $4A;
10   VK_K = $4B; VK_L = $4C; VK_M = $4D; VK_N = $4E;
11   VK_O = $4F; VK_P = $50; VK_Q = $51; VK_R = $52;
12   VK_S = $53; VK_T = $54; VK_U = $55; VK_V = $56;
13   VK_W = $57; VK_X = $58; VK_Y = $59; VK_Z = $5A;
14 
15  begin
16   case State of
17     0: Keybd_event(bVk, Byte(MapVirtualKey(bVk, 0)), KEYEVENTF_KEYUP, 0);
18     1: Keybd_event(bVk, Byte(MapVirtualKey(bVk, 0)), KEYEVENTF_KEYDOWN, 0)
19   end;
20   {
21   VOID keybd_event(
22    BYTE bVk,    // virtual-key code
23    BYTE bScan,    // hardware scan code
24    DWORD dwFlags,    // flags specifying various function options
25    DWORD dwExtraInfo     // additional data associated with keystroke
26    );
27   UINT MapVirtualKey(
28 
29    UINT uCode,    // virtual-key code or scan code
30    UINT uMapType     // translation to perform
31    );
32   }
33  end;