unit1.dfm

delphi调用winio实现驱动键盘模拟

object Form1: TForm1
  Left = 750
  Top = 475
  Width = 256
  Height = 218
  Caption = #27979#35797
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 136
    Top = 152
    Width = 49
    Height = 25
    Caption = #21551#21160
    TabOrder = 0
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 8
    Top = 8
    Width = 233
    Height = 137
    Lines.Strings = (
      #12288
      #38190#30424#39537#21160#27169#25311#65288'WinIo'#65289
      #12288#20250#22312#24403#21069#21069#21488#20219#20309#31243#24207#20013#20316#38190#30424#27169#25311#12290
      #12288
      #27979#35797#35828#26126#65306
      #12288'1'#12289#26032#25171#24320#19968#20010#31354#30333#35760#20107#26412#12290
      #12288'2'#12289#25353#21551#21160#38190#65292#20999#25442#21040#35760#20107#26412#65292#20250#22312#24403
      #12288'      '#21069#31243#24207#36755#20837'"1234"'#12290)
    ReadOnly = True
    TabOrder = 2
  end
  object Button2: TButton
    Left = 192
    Top = 152
    Width = 49
    Height = 25
    Caption = #20572#27490
    Enabled = False
    TabOrder = 1
    OnClick = Button2Click
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 96
    Top = 152
  end
end