unit1.~dfm

Delphi编写的短信发送程序

object Form1: TForm1
  Left = 229
  Top = 126
  Width = 745
  Height = 586
  Caption = #25163#26426'AT'#27979#35797#36719#20214
  Color = clBtnFace
  Constraints.MaxHeight = 586
  Constraints.MaxWidth = 745
  Constraints.MinHeight = 586
  Constraints.MinWidth = 745
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 16
    Width = 705
    Height = 97
    Caption = #36890#35759#35774#32622
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 76
      Height = 19
      Caption = #31471#21475#21495#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 144
      Top = 24
      Width = 76
      Height = 19
      Caption = #27874#29305#29575#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 288
      Top = 24
      Width = 76
      Height = 19
      Caption = #25968#25454#20301#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 424
      Top = 24
      Width = 76
      Height = 19
      Caption = #20572#27490#20301#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 560
      Top = 24
      Width = 76
      Height = 19
      Caption = #26657#39564#20301#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Shape1: TShape
      Left = 112
      Top = 64
      Width = 25
      Height = 25
      Shape = stCircle
    end
    object Shape2: TShape
      Left = 336
      Top = 64
      Width = 25
      Height = 25
      Shape = stCircle
    end
    object Shape3: TShape
      Left = 552
      Top = 64
      Width = 25
      Height = 25
      Shape = stCircle
    end
    object CoboxDkh: TComboBox
      Left = 80
      Top = 24
      Width = 57
      Height = 21
      ImeName = #20116#31508#36755#20837#27861' 86 '#29256
      ItemHeight = 13
      TabOrder = 0
      Text = 'COM1'
    end
    object CoboxBtl: TComboBox
      Left = 216
      Top = 24
      Width = 57
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = '19200'
    end
    object CoboxSjw: TComboBox
      Left = 360
      Top = 24
      Width = 57
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Text = '8'
    end
    object CoboxTzw: TComboBox
      Left = 496
      Top = 24
      Width = 57
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = '1'
    end
    object CoboxXyw: TComboBox
      Left = 640
      Top = 24
      Width = 57
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Text = 'NONE'
    end
    object ComboBox6: TComboBox
      Left = 168
      Top = 104
      Width = 41
      Height = 21
      ItemHeight = 13
      TabOrder = 5
      Text = 'ComboBox6'
    end
    object ButComOpen: TButton
      Left = 200
      Top = 56
      Width = 105
      Height = 33
      Caption = #25171#24320#20018#21475
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = ButComOpenClick
    end
    object ButComClose: TButton
      Left = 392
      Top = 56
      Width = 105
      Height = 33
      Caption = #20851#38381#20018#21475
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = ButComCloseClick
    end
  end
  object MSComm1: TMSComm
    Left = 32
    Top = 72
    Width = 32
    Height = 32
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000080000
      00040000802500000000080000000000000000003F00000001000000}
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 128
    Width = 705
    Height = 65
    Caption = #30701#20449#20013#24515#21495#30721#35774#32622
    TabOrder = 2
    object Label6: TLabel
      Left = 16
      Top = 24
      Width = 80
      Height = 16
      Caption = #20013#24515#21495#30721#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 328
      Top = 24
      Width = 72
      Height = 16
      Caption = #24403#21069#21495#30721':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object EditZxhm: TEdit
      Left = 96
      Top = 24
      Width = 121
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 14
      ParentFont = False
      TabOrder = 0
      Text = '[phone]'
    end
    object ButZxhmQr: TButton
      Left = 232
      Top = 24
      Width = 73
      Height = 25
      Caption = #30830#35748
      TabOrder = 1
      OnClick = ButZxhmQrClick
    end
    object EditZxhmDqh: TEdit
      Left = 408
      Top = 24
      Width = 121
      Height = 24
      Color = clCream
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Text = '[phone]'
    end
    object ButZxhmDq: TButton
      Left = 552
      Top = 24
      Width = 137
      Height = 25
      BiDiMode = bdLeftToRight
      Caption = #35835#21462#24403#21069#21495#30721'      '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentBiDiMode = False
      ParentFont = False
      TabOrder = 3
      OnClick = ButZxhmDqClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 16
    Top = 200
    Width = 329
    Height = 233
    Caption = #30701#20449#24687#21457#36865
    TabOrder = 3
    object Label8: TLabel
      Left = 16
      Top = 24
      Width = 121
      Height = 20
      AutoSize = False
      Caption = #25509#25910#32773#21495#30721#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object EditJszhm: TEdit
      Left = 144
      Top = 16
      Width = 161
      Height = 29
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 11
      ParentFont = False
      TabOrder = 0
      Text = '13224441010'
    end
    object GroupBox4: TGroupBox
      Left = 16
      Top = 56
      Width = 297
      Height = 137
      Caption = #30701#20449#24687#20869#23481
      TabOrder = 1
      object REditDxnr: TRichEdit
        Left = 8
        Top = 24
        Width = 281
        Height = 105
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        Lines.Strings = (
          'REditDxnr')
        MaxLength = 64
        ParentFont = False
        TabOrder = 0
      end
    end
    object ButDxSend: TButton
      Left = 16
      Top = 200
      Width = 297
      Height = 25
      Caption = #21457'            '#36865
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #26032#23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = ButDxSendClick
    end
  end
  object GroupBox5: TGroupBox
    Left = 360
    Top = 200
    Width = 361
    Height = 233
    Caption = #30701#20449#24687#25509#25910
    TabOrder = 4
  end
  object RichEdit1: TRichEdit
    Left = 16
    Top = 440
    Width = 705
    Height = 105
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      'RichEdit1')
    ParentFont = False
    TabOrder = 5
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 72
    Top = 80
  end
end