gsmwizunit.~dfm

很好的手机发短信的例子。含GSM群发机设计原理和使用说明。还有详细代码

object MainForm: TMainForm
  Left = 306
  Top = 106
  Width = 663
  Height = 582
  Caption = #30701#20449#32676#21457' - '#31934#31616#29256
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Shape1: TShape
    Left = 0
    Top = 53
    Width = 655
    Height = 4
    Align = alTop
  end
  object Shape2: TShape
    Left = 0
    Top = 81
    Width = 655
    Height = 4
    Align = alTop
  end
  object Shape4: TShape
    Left = 0
    Top = 257
    Width = 655
    Height = 4
    Align = alTop
  end
  object Shape5: TShape
    Left = 0
    Top = 285
    Width = 655
    Height = 4
    Align = alTop
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 655
    Height = 53
    AutoSize = True
    ButtonHeight = 51
    ButtonWidth = 79
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    ShowCaptions = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Action = TestSetAction
    end
    object ToolButton3: TToolButton
      Left = 79
      Top = 0
      Action = SendAction
    end
    object ToolButton2: TToolButton
      Left = 158
      Top = 0
      Action = StopAction
    end
    object ToolButton5: TToolButton
      Left = 237
      Top = 0
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton6: TToolButton
      Left = 245
      Top = 0
      Action = ForceFeeAction
      Caption = #24378#21046#26816#26597#35805#36153
    end
    object ToolButton7: TToolButton
      Left = 324
      Top = 0
      Action = ForceSendAction
    end
    object ToolButton9: TToolButton
      Left = 403
      Top = 0
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton10: TToolButton
      Left = 411
      Top = 0
      Action = AddMobileAction
    end
    object ToolButton4: TToolButton
      Left = 490
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object ToolButton8: TToolButton
      Left = 498
      Top = 0
      Action = LowSpeedAction
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 57
    Width = 655
    Height = 24
    Align = alTop
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Caption = '  '#20219#21153#30830#35748
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object NotifyLabel: TLabel
      Left = 104
      Top = 5
      Width = 99
      Height = 15
      Caption = 'NotifyLabel'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 289
    Width = 655
    Height = 247
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = #35774#22791#21015#34920
      object GComListView: TListView
        Left = 0
        Top = 0
        Width = 647
        Height = 220
        Align = alClient
        Columns = <
          item
            Caption = #35774#22791
            Width = 70
          end
          item
            Caption = #29366#24577
            Width = 100
          end
          item
            Caption = #23545#26041#21495#30721
            Width = 120
          end
          item
            Caption = #20219#21153
          end
          item
            Caption = #24050#21457#36865
          end
          item
            AutoSize = True
            Caption = #20869#23481
          end
          item
            Caption = #21097#20313#35805#36153
            Width = 70
          end>
        MultiSelect = True
        ReadOnly = True
        RowSelect = True
        PopupMenu = SetPopupMenu
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26085#24535
      ImageIndex = 1
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 647
        Height = 22
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object GSMComCombo: TComboBox
          Left = 0
          Top = 0
          Width = 177
          Height = 22
          Style = csOwnerDrawFixed
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ItemHeight = 16
          ItemIndex = 0
          TabOrder = 0
          Text = #25152#26377#35774#22791
          Items.Strings = (
            #25152#26377#35774#22791)
        end
        object ErrorCheckBox: TCheckBox
          Left = 392
          Top = 0
          Width = 113
          Height = 17
          Caption = #20986#38169#20449#24687
          Checked = True
          State = cbChecked
          TabOrder = 1
        end
        object SuccessCheckBox: TCheckBox
          Left = 292