cti.dpr

语音坐席,支持录音及语音回访,和自动催款

program CTI;

uses
  SysUtils,
  Forms,
  U_Main in 'U_Main.pas' {MCTIForm},
  U_Splash in 'U_Splash.pas',
  U_Pub in 'U_Pub.pas',
  U_CSSZ in 'U_CSSZ.pas' {CSSZ},
  U_YHGL in 'U_YHGL.pas' {FYHGL},
  U_EDPS in 'U_EDPS.pas' {FEditPS},
  U_Login in 'U_Login.pas' {FLogin},
  U_ZXXX in 'U_ZXXX.pas' {ZXXX},
  U_InfoView in 'U_InfoView.pas' {InfoView},
  U_RCAP in 'U_RCAP.pas' {RCAP},
  U_YHCZ1 in 'U_YHCZ1.PAS' {YHCZ},
  U_IPYHCX in 'U_IPYHCX.pas' {IPYHCX},
  U_YHXXCX in 'U_YHXXCX.pas' {YHXXCX},
  U_UserView1 in 'U_UserView1.pas' {UserView},
  U_DataView in 'U_DataView.pas' {DataView},
  U_QForm in 'U_QForm.pas' {QForm},
  U_About in 'U_About.pas' {AboutBox},
  U_SendMsg in 'U_SendMsg.pas' {SendMsg},
  U_KDSQXX in 'U_KDSQXX.pas' {KDSQXX},
  U_YHDW in 'U_YHDW.pas' {YHDW},
  U_IPYHDJ in 'U_IPYHDJ.pas' {IPYHDJ},
  U_BCCX in 'U_BCCX.pas' {BCCX},
  U_GZFLTJ in 'U_GZFLTJ.pas' {GZFLTJ},
  U_KDAZPGCX in 'U_KDAZPGCX.pas' {KDAZPGCX},
  U_MNGZPGCX in 'U_MNGZPGCX.pas' {MNGZPGCX},
  U_KDGZPGCX in 'U_KDGZPGCX.pas' {KDGZPGCX},
  U_JDHGZPGCX in 'U_JDHGZPGCX.pas' {JDHGZPGCX},
  U_KDYLTJ in 'U_KDYLTJ.pas' {KDYLTJ},
  U_FWSCTJ in 'U_FWSCTJ.pas' {FWSCTJ};

{$R *.res}
Var AForm:TFSplash;
    MR:Integer;
begin
  With TFLogin.Create(Application) Do
  Begin
       CanNotCloseUntilOK:=False;
       MR:=ShowModal;
       Free;
  End;
  If MR<>1 Then Exit;

  Application.Initialize;
  Application.Title := '有线电视客户服务系统';

  AForm:=TFSplash.Create(Application);
  AForm.DoubleBuffered:=True;
  AForm.Show;
  AForm.Refresh;

  Application.CreateForm(TMCTIForm, MCTIForm);
  Application.CreateForm(TCSSZ, CSSZ);
  Application.CreateForm(TUserView, UserView);
  Application.CreateForm(TQForm, QForm);
  Application.CreateForm(TSendMsg, SendMsg);
  AForm.Repaint;
  Sleep(1000);
  AForm.Hide;
  AForm.Free;

  Application.Run;
end.