Initial commit - Delphi MES client project

2026-05-07 20:25:34 +08:00
commit 819b4824f6
466 changed files with 1176403 additions and 0 deletions
@@ -0,0 +1,70 @@
+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.