unit My_KeyBD_Event;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
const
     VK_0 = 48;
     VK_1 = 49;
     VK_2 = 50;
     VK_3 = 51;
     VK_4 = 52;
     VK_5 = 53;
     VK_6 = 54;
     VK_7 = 55;
     VK_8 = 56;
     VK_9 = 57;
     VK_A = 65;
     VK_B = 66;
     VK_C = 67;
     VK_D = 68;
     VK_E = 69;
     VK_F = 70;
     VK_G = 71;
     VK_H = 72;
     VK_I = 73;
     VK_J = 74;
     VK_K = 75;
     VK_L = 76;
     VK_M = 77;
     VK_N = 78;
     VK_O = 79;
     VK_P = 80;
     VK_Q = 81;
     VK_R = 82;
     VK_S = 83;
     VK_T = 84;
     VK_U = 85;
     VK_V = 86;
     VK_W = 87;
     VK_X = 88;
     VK_Y = 89;
     VK_Z = 90;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     ShowMessage('模拟成功!')
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    {模拟键盘动作API函数keydb_event，它可以模拟对键盘上的某个或某些键进行按下或放开的动作。}
    {procedure keybd_event(bVk: Byte; bScan: Byte; dwFlags, dwExtraInfo: DWORD); stdcall;}
    {参数说明:}
    {bVk, 虚拟键值。}
    {bScan, 硬件扫描码。}
    {dwFlags, 动作标识。}
    {dwExtraInfo, 与键盘动作关联的辅加信息。}
    {dwFlags表示各种各样的键盘动作，它有两种取值：KEYEVENTF_EXTENDEDKEY和KEYEVENTF_KEYUP。}

    {MapVirtualKey函数将一虚拟键码翻译（映射）成一扫描码或一字符值，或者将一扫描码翻译成一虚拟键码。}
    {function MapVirtualKey(uCode, uMapType: UINT): UINT; stdcall;}
    {参数说明:}
    {uCode：定义一个键的扫描码或虚拟键码。该值如何解释依赖于uMapType参数的值。}
    {uMapType：定义将要执行的翻译。该参数的值依赖于uCode参数的值。取值如下：}
    {0：代表uCodee是一虚拟键码且被翻译为一扫描码。若一虚拟键码不区分左右，
     则返回左键的扫描码。若未进行翻译，则函数返回O。}
    {1：代表uCode是一扫描码且被翻译为一虚拟键码，且此虚拟键码不区分左右。若未进行翻译，则函数返回0。}
    {2：代表uCode为一虚拟键码且被翻译为一未被移位的字符值存放于返回值的低序字中。
        死键（发音符号）则通过设置返回值的最高位来表示。若未进行翻译，则函数返回0。}
    {3：代表uCode为一扫描码且被翻译为区分左右键的一虚拟键码。若未进行翻译，则函数返回0。}
    {返回值：返回值可以是一扫描码，或一虚拟键码，或一字符值，
     这完全依赖于不同的uCode和uMapType的值。若未进行翻译，则函数返回O。}

    {模拟ALT键按下}
    KeyBD_Event(VK_MENU,MapVirtualKey(VK_MENU,0),0,0);
    {模拟C键按下}
    KeyBD_Event(VK_C,MapVirtualKey(VK_C,0),0,0);
    {模拟C键弹起}
    KeyBD_Event(VK_C,MapVirtualKey(VK_C,0),KEYEVENTF_KEYUP,0);
    {模拟ALT键起}
    KeyBD_Event(VK_MENU,MapVirtualKey(VK_MENU,0),KEYEVENTF_KEYUP,0);
end;

end.