crystalsms.dpr

串口短信猫收发软件。支持西门子TC35i设备

program CrystalSMS;

uses
  Windows,
  Forms,
  UnitMainForm in 'src\UnitMainForm.pas' {MainForm},
  UnitSplashForm in 'src\UnitSplashForm.pas' {SplashForm},
  UnitProgressBar in 'src\UnitProgressBar.pas' {ProgressBarForm},
  UnitPublicFun in 'src\UnitPublicFun.pas',
  UnitModemPool in 'src\UnitModemPool.pas',
  UnitModem in 'src\UnitModem.pas',
  UnitSiememsTC35i in 'src\UnitSiememsTC35i.pas',
  UnitSerial in 'src\UnitSerial.pas',
  UnitATCommandListForm in 'src\UnitATCommandListForm.pas' {FormATCommandList},
  UnitRecieveMsgThread in 'src\UnitRecieveMsgThread.pas',
  UnitSendMsgThread in 'src\UnitSendMsgThread.pas',
  UnitScanModemStatusThread in 'src\UnitScanModemStatusThread.pas',
  UnitDM in 'src\UnitDM.pas' {DM: TDataModule},
  UnitSendSMSForm in 'src\UnitSendSMSForm.pas' {SendSMSForm},
  UnitSemaphoreManager in 'src\UnitSemaphoreManager.pas',
  UnitSelectTelForm in 'src\UnitSelectTelForm.pas' {SelectTelForm},
  UnitSelectTextForm in 'src\UnitSelectTextForm.pas' {SelectTextForm},
  UnitQueryCountForm in 'src\UnitQueryCountForm.pas' {QueryCountForm},
  UnitFeeCtrlForm in 'src\UnitFeeCtrlForm.pas' {FeeCtrlForm},
  UnitAutoReplyForm in 'src\UnitAutoReplyForm.pas' {AutoReplyForm};

{$R *.res}

var
  S_APP : string;
  Mutex : THandle;
begin
  S_APP := ' 程序实例已经运行，在同一台主机上只允许运行一个实例！';
  Mutex := CreateMutex(nil, False, 'CrystalSMS');
  try
    if GetLastError = ERROR_ALREADY_EXISTS  then
    begin
      Application.MessageBox(PChar(S_APP), '警告', MB_OK + MB_ICONINFORMATION);
      Exit;
    end;
    Application.Initialize;
    try
      SplashForm := TSplashForm.Create(nil, 0);
      SplashForm.Show;
      SplashForm.Update;
      Application.Title := 'CrystalSMS GateWay V2.0';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TDM, DM);
  SplashForm.Hide;
    finally
      SplashForm.Close;
    end;
    Application.Run;
  finally
    ReleaseMutex(Mutex);
  end;
end.