st_sms.dpr

实现短信的收发应用非常的方便,系统很小直接使用不需安装

program st_sms;

uses
  Forms,
  windows,
  umain in 'UMAIN.PAS' {mainform},
  udb in 'udb.pas' {smsdb: TDataModule},
  ustart in 'ustart.pas' {frmstart},
  udy in 'dy\udy.pas' {frmdy},
  Unit_browse in 'lldb\Unit_browse.pas' {Browseform},
  Unit_design in 'lldb\Unit_design.pas' {designform},
  utxl in 'txl\utxl.pas' {frmtxl},
  utxlxz in 'txlxz\utxlxz.pas' {frmtxlxz},
  Udxxj in 'dxgl\Udxxj.pas' {frmdxxj},
  udyxz in 'dyxz\udyxz.pas' {frmdyxz},
  ucxlxr in 'cx\ucxlxr.pas' {frmcxlxr},
  udycx in 'cx\udycx.pas' {frmdycx},
  udxcx in 'cx\udxcx.pas' {frmdxcx},
  uyfdx in 'cx\uyfdx.pas' {frmyfdx},
  usbdx in 'cx\usbdx.pas' {frmsbdx},
  uabout in 'about\UABOUT.PAS' {frmabout};

{$R *.res}

begin
  Application.Initialize;
  application.Title:='数通短信系统1.2';
  try
  try
  frmstart:=Tfrmstart.Create(application);
  frmstart.Show;
  frmstart.Update;
  finally
  sleep(2500);
  frmstart.Free;
  end;
  Application.CreateForm(Tsmsdb, smsdb);
  Application.CreateForm(Tmainform, mainform);
  Application.Run;
  except
  application.MessageBox('程序启动失败!',':提示:',mb_ok);
  end;
end.