學習紀錄

var
  mInput:WideChar;
  KeyInputs: array of TInput;
  //--------------------------------------------
  procedure KeybdInput(VKey: Byte; Flags: DWORD);
  begin
    SetLength(KeyInputs, Length(KeyInputs)+1);
    KeyInputs[high(KeyInputs)].Itype := INPUT_KEYBOARD;
    with  KeyInputs[high(KeyInputs)].ki do
    begin
      wVk := VKey;
      wScan := MapVirtualKey(wVk, 0);
      dwFlags := Flags;
    end;
  end;

  //--------------------------------------------
begin
  mInput := TSpeedButton(Sender).Text[1];
//  FInput := FInput + KeyChar;
//  Text1.Text := FInput;

  KeybdInput(Ord(mInput), 0);
  KeybdInput(Ord(mInput), KEYEVENTF_KEYUP);

end;