projectyarnlls.dpr

纺织类 纤维强力测试中蠕变性能测试源码

program ProjectYarnlls;

uses
  Forms,
  UnitYarnLs in 'UnitYarnLs.pas' {FormYarnLS},
  DataYarn in 'DataYarn.pas' {DataMDYarn: TDataModule},
  UnitYarnRP in 'UnitYarnRP.pas' {FormyanReport},
  UnitYarnlslook in 'UnitYarnlslook.pas' {FormyarnLSlook},
  UnitPrint in 'UnitPrint.pas' {OKRightDlg1},
  UnitSJBF in 'UnitSJBF.pas' {DataBack},
  UnitNew in 'UnitNew.pas' {OKBottomDlg},
  UnitAbout in 'UnitAbout.pas' {AboutBox},
  UnitQRchart in 'UnitQRchart.pas' {FormQRChart},
  UnitRPTitle in 'UnitRPTitle.pas' {FormRPtitle},
  UnitLarge in 'UnitLarge.pas' {FormLarge};

{$R *.res}
  Const
  csNotRun = '您没有足够的权根执行该程序，或者您执行的方式不正确！';
begin

 
if ParamCount =0 then
    begin
      Application.MessageBox(Pchar(csNotRun),'提示',16);
     end
     else begin
   Application.Initialize;
  Application.CreateForm(TFormYarnLS, FormYarnLS);
  Application.CreateForm(TDataMDYarn, DataMDYarn);
  Application.CreateForm(TFormyarnLSlook, FormyarnLSlook);
  Application.CreateForm(TOKRightDlg1, OKRightDlg1);
  Application.CreateForm(TDataBack, DataBack);
  Application.CreateForm(TOKBottomDlg, OKBottomDlg);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TFormQRChart, FormQRChart);
  Application.CreateForm(TFormRPtitle, FormRPtitle);
  Application.CreateForm(TFormLarge, FormLarge);
  Application.Run;
 end;
end.