kqloaddata.dpr

中控800型号考勤机的自动采集数据程序。能够手动采集

program KQLoadData;

uses
  Forms,
  Windows,
  u_MainForm in 'u_MainForm.pas' {MainForm},
  u_ChildLoadData in 'u_ChildLoadData.pas' {frm_ChildLoadData},
  u_MainThread in 'u_MainThread.pas',
  u_dm in 'u_dm.pas' {DM: TDataModule},
  CommonUnit in '..\DZIMS\System\CommonUnit.pas',
  u_Emp in 'u_Emp.pas' {Frm_Emp},
  u_matchineInfo in 'u_matchineInfo.pas' {frm_MachineInfo},
  shareunit in 'shareunit.pas',
  setsystem in 'setsystem.pas' {systemset},
  u_AddDevice in 'u_AddDevice.pas' {Frm_AddDevice},
  u_AddEMP in 'u_AddEMP.pas' {Frm_AddEMP},
  u_Info in 'u_Info.pas' {frm_Info};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '考勤数据采集系统';
  AppMutex:=OpenMutex(MUTEX_ALL_ACCESS,False,PChar('考勤数据采集系统'));
  if AppMutex<>0 then
  begin
   application.MessageBox('系统已经运行！','提示',MB_OK);
   exit;
  end;
  CreateMutex(nil,False,PChar('考勤数据采集系统'));
  ReadExeInfo; //读取执行文件信息
  ReadReg;
  ReadIniInfo;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(Tfrm_Info, frm_Info);
  Application.Run;
end.