sendsms.dfm

一个delphi编写的收发短信源码, 使用了Cport控件,很实用

object frmSMS: TfrmSMS
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #25163#26426#30701#20449#21457#36865#22120
  ClientHeight = 453
  ClientWidth = 749
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020000000000000A80800001600000028000000200000004000
    0000010008000000000080040000000000000000000000010000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C000C0DC
    C000F0CAA600D4F0FF00B1E2FF008ED4FF006BC6FF0048B8FF0025AAFF0000AA
    FF000092DC00007AB90000629600004A730000325000D4E3FF00B1C7FF008EAB
    FF006B8FFF004873FF002557FF000055FF000049DC00003DB900003196000025
    730000195000D4D4FF00B1B1FF008E8EFF006B6BFF004848FF002525FF000000
    FE000000DC000000B900000096000000730000005000E3D4FF00C7B1FF00AB8E
    FF008F6BFF007348FF005725FF005500FF004900DC003D00B900310096002500
    730019005000F0D4FF00E2B1FF00D48EFF00C66BFF00B848FF00AA25FF00AA00
    FF009200DC007A00B900620096004A00730032005000FFD4FF00FFB1FF00FF8E
    FF00FF6BFF00FF48FF00FF25FF00FE00FE00DC00DC00B900B900960096007300
    730050005000FFD4F000FFB1E200FF8ED400FF6BC600FF48B800FF25AA00FF00
    AA00DC009200B9007A009600620073004A0050003200FFD4E300FFB1C700FF8E
    AB00FF6B8F00FF487300FF255700FF005500DC004900B9003D00960031007300
    250050001900FFD4D400FFB1B100FF8E8E00FF6B6B00FF484800FF252500FE00
    0000DC000000B9000000960000007300000050000000FFE3D400FFC7B100FFAB
    8E00FF8F6B00FF734800FF572500FF550000DC490000B93D0000963100007325
    000050190000FFF0D400FFE2B100FFD48E00FFC66B00FFB84800FFAA2500FFAA
    0000DC920000B97A000096620000734A000050320000FFFFD400FFFFB100FFFF
    8E00FFFF6B00FFFF4800FFFF2500FEFE0000DCDC0000B9B90000969600007373
    000050500000F0FFD400E2FFB100D4FF8E00C6FF6B00B8FF4800AAFF2500AAFF
    000092DC00007AB90000629600004A73000032500000E3FFD400C7FFB100ABFF
    8E008FFF6B0073FF480057FF250055FF000049DC00003DB90000319600002573
    000019500000D4FFD400B1FFB1008EFF8E006BFF6B0048FF480025FF250000FE
    000000DC000000B90000009600000073000000500000D4FFE300B1FFC7008EFF
    AB006BFF8F0048FF730025FF570000FF550000DC490000B93D00009631000073
    250000501900D4FFF000B1FFE2008EFFD4006BFFC60048FFB80025FFAA0000FF
    AA0000DC920000B97A000096620000734A0000503200D4FFFF00B1FFFF008EFF
    FF006BFFFF0048FFFF0025FFFF0000FEFE0000DCDC0000B9B900009696000073
    730000505000F2F2F200E6E6E600DADADA00CECECE00C2C2C200B6B6B600AAAA
    AA009E9E9E0092929200868686007A7A7A006E6E6E0062626200565656004A4A
    4A003E3E3E0032323200262626001A1A1A000E0E0E00F0FBFF00A4A0A0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000008B8B8B8B8B8B8B8B8B8B8B8B000000
    00000000000000000000000000000000008B848484841312848484848E000000
    00000000000000000000000000000000008B848484841312848484848E000000
    00000000000000000000000000000000008B848484841312848484848E000000
    00000000000000000000000000000000008B848484841312848484848E000000
    00000000000000000000000000000000008B848484841312848484848E000000
    00000000000000000000000000000000008B84000000000000EB84848E000000
    00000000000000000000000000000000008B840000000000000084848E000000
    EEEEEEEEEEEE00000000000000000000008B8400EEEEEEEEEEEB84848E0000EE
    EEEEEEEEEEEEEEEEEEEEEEEE00000000008B848484848484848484848E0000E9
    E8EAEBEBEEEEEEEEEEEEEEEEEEEEEEEE008B8E8E8E8E8E8E8E8E8E8E8E0000E7
    E7E7E7E7E7E7E8EAEBEBEEEEEEEEEEEE00000000000000000000000000000000
    E88A8A97E9E8E7E7E7E7E7E8E9EAEBEBE9E5E78B000000000000000000000000
    E7EA97978A978A97E9E8E7E7E7E7E5E3FFE38B978A0000000000000000000000
    00E78887848796978A978A97E9E8E7E5FF8B978A840000000000000000000000
    00E7EA9584848484848796978A978A978B878A84848400000000000000000000
    0000E78B84848484848484848487969787858384848400000000000000000000
    0000E7EA92848484848484848484848483FF8284848484000000000000000000
    000000E78B84848484848484848484848482FF84848484000000000000000000
    000000E7EA92848484848484848484848483FF83848484840000000000000000
    00000000E78B848484848484848484848484FF82848484840000000000000000
    00000000E7EA92848484848484848484848482FF838484848400000000000000
    0000000000E78B8F8384848484848484848483FF828484848400000000000000
    0000000000E7E9888E8E8E838484848484848482FF838484848F000000000000
    000000000000E7E7E98B888E8E8E838484848483FF8284848F8E000000000000
    0000000000000000E7E7E7E98B888E8E8E83848482FF848F8E8BE70000000000
    0000000000000000000000E7E7E7E98B888E8E8E83FF8F8E8BE5E70000000000
    0000000000000000000000000000E7E7E7E98B888E8E8E8BE3E5000000000000
    0000000000000000000000000000000000E7E7E5E98B8BFFE300000000000000
    0000000000000000000000000000000000000000E5E4FFFF0000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    C000FFFFC000FFFFC000FFFFC000FFFFC000FFFFC000FFFFC000FFFFC000C07F
    C0008003C000000000000000000000000000800001FF800000FFC00000FFC000
    007FE000007FE000003FF000003FF000001FF800001FF800000FFC00000FFC00
    0007FE000007FF000003FFC00003FFF80007FFFF000FFFFFE01FFFFFFC3F4669
    6C652063726561746564206279204B4820536F66747761726520466163746F72
    792049636F6E20546F6F6C205365726965732E}
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 749
    Height = 41
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 37
        Width = 745
      end>
    ParentShowHint = False
    ShowHint = True
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 732
      Height = 37
      AutoSize = True
      ButtonHeight = 35
      ButtonWidth = 67
      Caption = 'ToolBar1'
      Flat = True
      Images = ImageList1
      ShowCaptions = True
      TabOrder = 0
      Transparent = True
      OnMouseDown = ToolBar1MouseDown
      object TBOpen: TToolButton
        Left = 0
        Top = 0
        Caption = #25171#24320#36890#20449
        ImageIndex = 0
        OnClick = TBOpenClick
      end
      object TBClose: TToolButton
        Left = 67
        Top = 0
        Caption = #20851#38381#36890#20449
        ImageIndex = 1
        OnClick = TBCloseClick
      end
      object ToolButton3: TToolButton
        Left = 134
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object TBSetup: TToolButton
        Left = 142
        Top = 0
        Caption = #35774#32622#21442#25968
        ImageIndex = 2
        OnClick = TBSetupClick
      end
      object TBInit: TToolButton
        Left = 209
        Top = 0
        Caption = #21021#22987#21270#21442#25968
        ImageIndex = 6
        OnClick = TBInitClick
      end
      object ToolButton2: TToolButton
        Left = 276
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object TBRead: TToolButton
        Left = 284
        Top = 0
        Caption = #35835#30701#20449
        ImageIndex = 5
        OnClick = TBReadClick
      end
      object TBSend: TToolButton
        Left = 351
        Top = 0
        Caption = #21457#30701#20449
        ImageIndex = 8
        OnClick = TBSendClick
      end
      object ToolButton4: TToolButton
        Left = 418
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object TBSave: TToolButton
        Left = 426
        Top = 0
        Caption = #26085#24535
        DropdownMenu = PM
        ImageIndex = 9
        Style = tbsDropDown
      end
      object ToolButton5: TToolButton
        Left = 506
        Top = 0
        Width = 8
        Caption = 'ToolButton5'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object TBExit: TToolButton
        Left = 514
        Top = 0
        Caption = #36864#20986
        ImageIndex = 3
        OnClick = TBExitClick
      end
      object TBType: TToolButton
        Left = 581
        Top = 0
        Caption = #25163#26426#31867#22411
        ImageIndex = 7
        Visible = False
        OnClick = TBTypeClick
      end
      object TBDebug: TToolButton
        Left = 648