project1.dpr

商品房合同套打程序

program Project1;

uses
  ExceptionLog,
  Forms, Windows,
  dm in 'dm.pas' {DataModule2: TDataModule},
  MainUnit in 'mainUnit.pas' {Form1},
  EDITMAIN in 'EDITMAIN.PAS' {IDForm},
  Unit100s in 'Unit100s.pas' {Form100s},
  Unit101s in 'Unit101s.pas' {Form101s},
  Unit102s in 'Unit102s.pas' {Form102s},
  Unit103s in 'Unit103s.pas' {Form103s},
  Unit104s in 'Unit104s.pas' {Form104s},
  Unit105s in 'Unit105s.pas' {Form105s},
  Unit106s in 'Unit106s.pas' {Form106s},
  Unit107s in 'Unit107s.pas' {Form107s},
  Unit108s in 'Unit108s.pas' {Form108s},
  Unit109s in 'Unit109s.pas' {Form109s},
  Unit110s in 'Unit110s.pas' {Form110s},
  Unit1111213s in 'Unit1111213s.pas' {Form1111213s},
  Unit114s in 'Unit114s.pas' {Form114s},
  Unit115s in 'Unit115s.pas' {Form115s},
  Unit1617s in 'Unit1617s.PAS' {Form1617s},
  Unit18_24s in 'Unit18_24s.pas' {Form18_24s},
  UnitPreview in 'UnitPreview.pas' {PreviewForm},
  SoftReg in 'SoftReg.pas' {RegSoftForm},
  Unit2 in 'Unit2.pas' {Form2},
  REGUnit in 'REGUnit.pas',
  UnitF3 in 'UnitF3.pas' {FormTF3},
  PrintAdoUnit in 'PrintAdoUnit.pas';

{$R *.res}

begin
 if CreateMutex then BEGIN
  Application.Initialize;
  Application.Title := '商品房销售合同(龙岩)打印程序';
  Application.CreateForm(TDataModule2, DataModule2);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
 END ELSE BEGIN
  Application.MessageBox('程序已经在运行中了。。。','',MB_ICONERROR );
  DestroyMutex;
 END;
end.