dongya.dpr

来自「绿色衡器称重系统(串口）」· DPR 代码 · 共 57 行

program DongYa;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
//             该系统源码归青岛东亚电子衡器有限公司版权所有
//                                  Author:HaiBin
//      Email:[e-mail]     DateTime:2005.06.22
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
uses
  Forms,
  SysUtils,
  shellAPI,
  Windows,
  unitJoin in 'unitJoin.pas' {frmJoin},
  unitMain in 'unitMain.pas' {frmMain},
  unitModifyPWD in 'unitModifyPWD.pas' {frmModifyPWD},
  unitFun in 'unitFun.pas',
  unitUmanage in 'unitUmanage.pas' {frmUManage},
  unitDanWei in 'unitDanWei.pas' {frmDanWei},
  unitHuopin in 'unitHuopin.pas' {frmHuoPin},
  unitDictClass in 'unitDictClass.pas' {frmDictClass},
  unitChePaiQ in 'unitChePaiQ.pas' {frmChePaiQ},
  unitPortConfig in 'unitPortConfig.pas' {frmPortConfig},
  unitChePaiN in 'unitChePaiN.pas' {frmChePaiN},
  unitCarHistory in 'unitCarHistory.pas' {frmCarHistory},
  unitHuiZongRep in 'unitHuiZongRep.pas' {frmHuiZongRep},
  unitAbout in 'unitAbout.pas' {frmAbout},
  unitDataBaseSave in 'unitDataBaseSave.pas' {frmDataBaseSave},
  unitDatabaseOpen in 'unitDatabaseOpen.pas' {frmDataBaseOpen},
  unitComapy in 'unitComapy.pas' {frmCompany},
  unitFieldManage in 'unitFieldManage.pas' {frmFieldManage};

{$R *.res}
var
mutex     : THandle;
mutexName : array [0..7] of char;
begin
try
 StrPCopy(mutexName ,'DYApp');
 mutex :=OpenMutex(MUTEX_ALL_ACCESS, False, mutexName);
 If mutex = 0 then
     begin
     mutex :=CreateMutex(nil,true,mutexName);
     Application.Initialize;
     Application.Title := '称重管理系统';
     Application.CreateForm(TfrmJoin, frmJoin);
  Application.Run;
     ReleaseMutex (mutex);
     end
      else
      begin
         MessageBox(application.Handle,'称重系统已经运行！不能运行一个以上实例！','青岛东亚电子衡器有限公司',MB_OK+MB_ICONERROR);
         Application.Terminate;
      end;
  except

  end;
end.