project1.dpr

是分布式粮库程序,是采用Delphi实现的

program Project1;

uses
  Forms,
  windows,
  messages,
  MainForm in 'MainForm.pas' {FrmMain},
  SplashForm in 'SplashForm.pas' {SplhFrm},
  UnitLoginForm in 'UnitLoginForm.pas' {LoginForm},
  Global in 'public\Global.pas',
  UnitDataModul in 'UnitDataModul.pas' {DtMdl: TDataModule},
  UnitMDIChildFrm in 'public\UnitMDIChildFrm.pas' {MDIChildFrm},
  UnitStandard1 in 'public\UnitStandard1.pas' {FrmStandard1},
  UntEdtPswrd in 'UntEdtPswrd.pas' {FrmEdtPswrd},
  UntRprtTable in 'public\UntRprtTable.pas' {FrmRprtTable},
  UntInNotyDispose in '分公司\UntInNotyDispose.pas' {FrmInNotyDispose},
  UntRecieveFdBill in '分公司\UntRecieveFdBill.pas' {FrmRecieveFdBill},
  UntStack in '分公司\UntStack.pas' {FrmStack},
  UntPrinting in 'public\UntPrinting.pas' {FrmPrinting},
  UntSlctField in 'public\UntSlctField.pas' {FrmSlctField},
  UntSlctNotyItemId in 'SelectForm\UntSlctNotyItemId.pas' {FrmSlctNotyItemId},
  UntTransferStore in '分公司\UntTransferStore.pas' {FrmTransferStore},
  UntSalBillDispose in '分公司\UntSalBillDispose.pas' {FrmSaleBillDispose},
  UntSaleOutStack in '分公司\UntSaleOutStack.pas' {FrmSaleOutStack},
  UntTransferOutStack in '分公司\UntTransferOutStack.pas' {FrmTransferOutStack},
  UntTransferNotyDispose in '分公司\UntTransferNotyDispose.pas' {FrmTransferNotyDispose},
  UntTransferInStack in '分公司\UntTransferInStack.pas' {FrmTransferInStack},
  UntUserRightSet in '..\wgx\UntUserRightSet.pas' {frmUserRightSet},
  UntBaseRight in '..\wgx\UntBaseRight.pas' {frmBaseRight},
  UntframeEmp in '..\wgx\UntframeEmp.pas' {FrameEmp: TFrame},
  UntframeDpt in '..\wgx\UntframeDpt.pas' {FrameDpt: TFrame},
  UntDptEmp in '..\wgx\UntDptEmp.pas' {frmDptEmp},
  UntChooseReport in '..\wgx\UntChooseReport.pas' {frmChooseReport},
  UntSlctTransferID in 'SelectForm\UntSlctTransferID.pas' {FrmSlctTransferID},
  UntSlctSaleItemID in 'SelectForm\UntSlctSaleItemID.pas' {FrmSlctSaleItemID},
  UntSlctInStockID in 'SelectForm\UntSlctInStockID.pas' {FrmSlctInStockID},
  uRpt4 in '..\wgx\报表4类\uRpt4.pas',
  us_rpt2 in '..\wgx\分公司报表\US_RPT2.PAS',
  planid in '..\njl\planid.pas' {fplanid},
  umakenotice in '..\njl\umakenotice.pas' {fmakenotice},
  umakesales in '..\njl\umakesales.pas' {fmakesale},
  Unit1 in '..\njl\Unit1.pas' {frmsetup},
  ustockquery in '..\njl\ustockquery.pas' {fstockquery},
  dmPub in '..\wgx\Pub\dmPub.pas' {dmPub: TDataModule},
  UntPub in '..\wgx\Pub\UntPub.pas',
  URpt1_1 in '..\wgx\总 公司分性质库存汇总报表\URpt1_1.pas',
  URpt2_1 in '..\wgx\总公司分单位库存汇总表\URpt2_1.pas',
  uRPT2_UnitSel in '..\wgx\总公司分单位库存汇总表\uRPT2_UnitSel.pas' {frmRPT2_UnitSel},
  unoticequery in '..\njl\unoticequery.pas' {Fnoticequery},
  Usalequery in '..\njl\Usalequery.pas' {fsalequery},
  upackagequery in '..\njl\upackagequery.pas' {fpackagequery},
  uqualityquery in '..\njl\uqualityquery.pas' {Fqualityquery},
  uunitbase in '..\njl\uunitbase.pas' {funitbase},
  UntTempResult in '分公司\UntTempResult.pas' {FrmTempResult},
  uuser in '..\njl\uuser.pas' {Fuser},
  ubunit in '..\njl\ubunit.pas' {fbaseunit},
  Ubfoodtype in '..\njl\Ubfoodtype.pas' {fbasefood},
  UntAdjustAttrDispose in '分公司\UntAdjustAttrDispose.pas' {FrmAdjustAttrDispose},
  UntRptMonth in '..\wgx\UntRptMonth.pas',
  Uexcel in '..\njl\Uexcel.pas',
  UntAdjstAttr in '分公司\UntAdjstAttr.pas' {FrmAdjustAttr},
  UPlanCase in '分公司\UPlanCase.pas' {FrmPlanCase},
  UntChooseUnit in '..\wgx\分公司报表\UntChooseUnit.pas' {frmChooseUnit};

{$R *.RES}

var
  myhandle:hWnd;
  const CM_RESTORE = WM_USER + $1000;
  myappname = 'test';
begin
  myhandle:=FindWindow(MYAPPNAME, NIL);
  if myHandle > 0 then
  begin
    //  messagebox(0,'该程序已经运行！','运行消息',0);
   //发送消息，激活程序
    PostMessage(myHandle, CM_RESTORE, 0, 0);
    Exit;
  end;
  Application.Initialize;
  //SplhFrm := TSplhFrm.Create(Application);
  //SplhFrm.show;
  //SplhFrm.Update;

 // while splhfrm.Timer1.Enabled do
 //   application.ProcessMessages;

  Application.CreateForm(TDtMdl, DtMdl);
  Application.CreateForm(TFrmMain, FrmMain);
  SplhFrm.Free;
  Application.Run;
end.