project1.dpr

来自「这是为工商所开发的工商收费簿套打软件,借初学者学习」· DPR 代码 · 共 52 行

program Project1;

uses
  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},
  SoftReg in 'SoftReg.pas' {RegSoftForm},
  Unit2 in 'Unit2.pas' {Form2},
  REGUnit in 'REGUnit.pas',
  UnitF3 in 'UnitF3.pas' {FormTF3},
  PrintAdoUnit in 'PrintAdoUnit.pas',
  UnitAbout in 'UnitAbout.pas' {AboutForm},
  UnitSet in 'UnitSet.pas' {SetForm},
  UnitPreview in 'UnitPreview.pas' {PreviewForm};

{$R *.res}

begin
 if CreateMutex then BEGIN
  Application.Initialize;
  Application.Title := '嘉俊工商表格套打程序';
  Application.CreateForm(TDataModule2, DataModule2);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.CreateForm(TSetForm, SetForm);
  Application.CreateForm(TPreviewForm, PreviewForm);
  Application.Run;
 END ELSE BEGIN
  Application.MessageBox('程序已经在运行中了。。。','',MB_ICONERROR );
  DestroyMutex;
 END;
end.