program MainWin;

uses
  System.StartUpCopy,
  FMX.Forms,
  WINDOWS,
  System.Classes,
  uSplash in 'pas\uSplash.pas' {SplashForm},
  uMain in 'pas\uMain.pas' {frmMain},
  uListConent in 'pas\uListConent.pas' {frmListConent},
  uSetMain in 'pas\uSetMain.pas' {frmSetMain},
  uPucFun in 'pas\uPucFun.pas',
  uDM in 'pas\uDM.pas' {DM: TDataModule},
  uPassword in 'pas\uPassword.pas' {FrmPassword},
  uShowInfo in 'pas\uShowInfo.pas' {FrmShowInfo},
  uListMoreConent in 'pas\uListMoreConent.pas' {frmListMoreConent},
  uSafeLog in 'pas\uSafeLog.pas',
  uKsoap in 'pas\uKsoap.pas',
  uErrorInfo in 'pas\uErrorInfo.pas',
  SPComm in 'pas\SPComm.pas',
  uTCPDevice in 'pas\uTCPDevice.pas',
  uFrameBase in 'pas\uFrameBase.pas' {FrameBase: TFrame},
  uInkPrintConent in 'pas\uInkPrintConent.pas' {frmInkPrinterConent},
  uPLCDevice in 'pas\uPLCDevice.pas',
  uBlandPrintConent in 'pas\uBlandPrintConent.pas' {frmBlandPrinterConent},
  uBlandConent in 'pas\uBlandConent.pas' {frmBlandConent},
  uTCPDeviceNew in 'pas\uTCPDeviceNew.pas',
  uCodeConent in 'pas\uCodeConent.pas' {fCodeConent},
  uListMore_Frame in 'pas\uListMore_Frame.pas' {ListMore_Frame: TFrame},
  MahUSB in 'pas\MahUSB.pas',
  uLostDummy in 'pas\uLostDummy.pas' {FrmLostDummy},
  json_webservice in 'pas\json_webservice.pas',
  uAddKey in 'pas\uAddKey.pas' {frmAddKey},
  uFrame_Dyp_Setup in 'pas\uFrame_Dyp_Setup.pas' {Frame_Dyp_Setup: TFrame},
  uFrame_Dyp001 in 'pas\uFrame_Dyp001.pas' {Frame_Dyp001: TFrame},
  uFrame_Dyp002 in 'pas\uFrame_Dyp002.pas' {Frame_Dyp002: TFrame},
  uFrame_Dyp003 in 'pas\uFrame_Dyp003.pas' {Frame_Dyp003: TFrame},
  uWorkOrderRecordUnit in 'pas\uWorkOrderRecordUnit.pas',
  uProReportUnit in 'pas\uProReportUnit.pas',
  uProWorkOrderEntryUnit in 'pas\uProWorkOrderEntryUnit.pas',
  uSendReportRequest in 'pas\uSendReportRequest.pas',
  uFrameBaseBland in 'pas\uFrameBaseBland.pas' {FrameBaseBland: TFrame},
  uFrame_Dyp000 in 'pas\uFrame_Dyp000.pas' {Frame_Dyp000: TFrame},
  uFile3Json in 'pas\uFile3Json.pas',
  uFrameSet in 'pas\uFrameSet.pas' {FrameSet: TFrame},
  json_dypSave in 'pas\json_dypSave.pas';

{$R *.res}

var
  MutexHandle: THandle;
begin
  MutexHandle := CreateMutex(nil,True,'UniqueAppMutex');
  if (MutexHandle <> 0) and (GetLastError = 0) then
  begin
      Application.Initialize;
      Application.CreateForm(TSplashForm, SplashForm);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TfrmAddKey, frmAddKey);
  Application.Run;
      ReleaseMutex(MutexHandle);
  end
  else
  begin
      //ShowError('软件已运行,请勿重复打开运行！');
      MutexHandle := FindWindow(PChar('FMTfrmMain'), nil); // 查找窗口
      if MutexHandle <> 0 then
          SetForegroundWindow(MutexHandle); // 激活窗口
  end;
end.