exitform.~dfm

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

object TheExitFom: TTheExitFom
  Left = 564
  Top = 337
  BorderStyle = bsNone
  Caption = 'TheExitFom'
  ClientHeight = 166
  ClientWidth = 340
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 340
    Height = 166
    Align = alClient
    Alignment = taCenter
    Caption = #36864#20986#20013#65292#31245#20505'...'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
  end
end