jftj.dpr

布林电话收费管理系统

program jftj;

uses
  Forms,
  windows,
  controls,
  main_un in 'main_un.pas' {main},
  dm_un in 'dm_un.pas' {dm: TDataModule},
  logon_un in 'logon_un.pas' {logon},
  globe in 'globe.pas',
  sjdr_un in 'sjdr_un.pas' {drsj},
  sjcx_un in 'sjcx_un.pas' {sjcx},
  user_un in 'user_un.pas' {user1},
  pass_un in 'pass_un.pas' {pass},
  skin_un in 'skin_un.pas' {skin},
  stand_un in 'stand_un.pas' {stand},
  khsj_un in 'khsj_un.pas' {khsj},
  about_un in 'about_un.pas' {about},
  backup_un in 'backup_un.pas' {backup},
  set_fy_un in 'set_fy_un.pas' {set_fw},
  set_system_un in 'set_system_un.pas' {set_system},
  del_money_un in 'del_money_un.pas' {del_money},
  prin_un in 'prin_un.pas' {prin},
  chnagename_un in 'chnagename_un.pas' {changename},
  delete_user_un in 'delete_user_un.pas' {delete_user},
  change_tel_un in 'change_tel_un.pas' {change_tel},
  basic_change_un in 'basic_change_un.pas' {basic_change},
  stop_open_un in 'stop_open_un.pas' {stop_open},
  change_yw_un in 'change_yw_un.pas' {change_yw},
  print_fp_un in 'print_fp_un.pas' {prin_fp},
  tel_count_un in 'tel_count_un.pas' {tel_count},
  user_count_un in 'user_count_un.pas' {user_count},
  userendprn_un in 'userendprn_un.pas' {userendprn},
  look_log_un in 'look_log_un.pas' {look_log},
  tel_y_un in 'tel_y_un.pas' {tel_y},
  jf_tj_un in 'jf_tj_un.pas' {JF_TJ},
  khdprn_un in 'khdprn_un.pas' {khdprn},
  ywprn_un in 'ywprn_un.pas' {ywprn},
  userprn_un in 'userprn_un.pas' {userprn},
  qfprn_un in 'qfprn_un.pas' {qfprn},
  usertelmx_un in 'usertelmx_un.pas' {usertelmx},
  bad_tel_un in 'bad_tel_un.pas' {bad_tel},
  bad_prn_un in 'bad_prn_un.pas' {bad_prn},
  frmstart_un in 'frmstart_un.pas' {frmStart};

{$R *.res}
 var
  Window1 : HWND;
begin
  Application.Initialize;
  Window1 := FindWindow(nil,'计费综合统计管理系统' );
  //查找是否有本系统执行中....
  if Window1 = 0 then
  begin
    Application.Title := '计费综合统计管理系统';
    Application.HintPause := 5;
    Application.HintShortPause := 5;
    Screen.Cursor := crHourGlass;
    frmStart := TfrmStart.Create(Application);
    frmStart.Show;
    frmStart.Update;
  Application.CreateForm(Tmain, main);
  Screen.Cursor := crdefault;
  frmStart.Free;
    Application.Run;
  end else
  begin
    Application.Terminate ;
    ShowWindow( Window1, SW_SHOWDEFAULT );
  end;
end.