prjmain.dpr

仓储系统

program PrjMain;

uses
  windows,
  Forms,
  UnitMain in 'UnitMain.pas' {frmMain},
  UnitStockRoom in 'UnitStockRoom.pas' {frmStockRoom},
  UnitDm in 'UnitDm.pas' {DM: TDataModule},
  UnitPdType in 'UnitPdType.pas' {frmPdType},
  UnitQuality in 'UnitQuality.pas' {frmQuality},
  UnitMateBasic in 'UnitMateBasic.pas' {frmMateBasic},
  UnitInOutClass in 'UnitInOutClass.pas' {frmInOutClass},
  UnitLogin in 'UnitLogin.pas' {frmLogin},
  UnitJLUnit in 'UnitJLUnit.pas' {frmJLUnit},
  UnitStockIn in 'UnitStockIn.pas' {frmStockIn},
  UnitInStockList in 'UnitInStockList.pas' {frmInStockList},
  UnitAbout in 'UnitAbout.pas' {frmAbout},
  UnitDept in 'UnitDept.pas' {frmDept},
  UnitGys in 'UnitGys.pas' {frmGys},
  UnitProductIn in 'UnitProductIn.pas' {frmProductIn},
  UnitStockPosition in 'UnitStockPosition.pas' {frmStockPosition},
  UnitProductOut in 'UnitProductOut.pas' {frmProductOut},
  UnitLy in 'UnitLy.pas' {frmLy},
  UnitTuiLiao in 'UnitTuiLiao.pas' {frmTuiLiao},
  UnitSelectCodeNameType in 'UnitSelectCodeNameType.pas' {frmSelectCodeNameType},
  UnitProcess in 'UnitProcess.pas' {frmProcess},
  UnitStockZz in 'UnitStockZz.pas' {frmStockZz},
  UnitMateNumChg in 'UnitMateNumChg.pas' {frmMateNumChg},
  UnitMonthStock in 'UnitMonthStock.pas' {frmMonthStock},
  UnitOp in 'UnitOp.pas' {frmOp},
  UnitBaoFei in 'UnitBaoFei.pas' {frmBaoFei},
  UnitPyPk in 'UnitPyPk.pas' {frmPyPk},
  UnitQryCondition in 'UnitQryCondition.pas' {frmQryCondi},
  UnitMateClass in 'UnitMateClass.pas' {frmMateClass},
  UnitBillPrint in 'UnitBillPrint.pas' {frmBillPrint},
  UnitQryDj in 'UnitQryDj.pas' {frmQryDj},
  UnitInOutDjQry in 'UnitInOutDjQry.pas' {frmInOutDjQry},
  UnitCustomer in 'UnitCustomer.pas' {frmCustomer},
  UnitPlanNum in 'UnitPlanNum.pas' {frmPlanNum},
  UnitMateNumPlanQry in 'UnitMateNumPlanQry.pas' {frmMateNumPlanQry};

{$R *.res}

var
  MutexHandle:Thandle;

begin
  Mutexhandle:=windows.CreateMutex(nil,true,'能代表程序特点的字符串');
  if Mutexhandle<>0 then
  begin
    if getlasterror=windows.ERROR_ALREADY_EXISTS then
    begin
      closehandle(Mutexhandle);
      halt;
    end;
  end;

  Application.Initialize;
  Application.CreateForm(TDM, DM);
  frmlogin:=Tfrmlogin.create(application);
  frmlogin.ShowModal;
  Application.Run;
end.



//说明:使用了信号灯来进行互斥操作.windows.CreateMutex创建出一个信号量,
//当同样的信号量被创建的时候,会产生错误:window.ERROR_ALREADY_EXISTS,程序被Halt掉,
//从而达到只能运行一次的目的