Developer
71 lines
2.7 KiB
ObjectPascal
71 lines
2.7 KiB
ObjectPascal
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.
|