newmanmjx1.dpr

本软件是我公司开发的具有实际用途即核磁共振含油率测试分析的源代码。

program Newmanmjx1;

uses
  Forms,
  Controls,
  SysUtils,
  Dialogs,
  Unt1Main in 'Unt1Main.pas' {Frm1Main},
  Unit7 in 'Unit7.pas',
  Untbd2 in 'Untbd2.pas' {Frmbd2},
  Unttest1 in 'Unttest1.pas' {Frmtest1},
  Untchaxun in 'Untchaxun.pas' {FrmChaXun},
  Unit6 in 'Unit6.pas' {Form6},
  Unit4 in 'Unit4.pas' {AboutBox},
  ABOUT in 'ABOUT.pas' {Frmabout};

{$R *.res}

  Var
 /// Hwnd:Thandle;
  Form6Tmp:TForm6;
  time1:TDateTime;

begin
      Form6Tmp:=TForm6.create(Application);
      Form6Tmp.Show;
      Form6Tmp.refresh;
      time1:=now;
      repeat
      until time1+StrtoTime('00:00:1')<=now;   //延时5秒
      Form6Tmp.free;
  Application.Initialize;
  // FrmLogin := TFrmLogin.Create(Application);
//  FrmLogin.ShowModal;
 /// if FrmLogin.ModalResult = mrok then
 //  begin
     Application.Title := '纽迈快速小核磁含油量分析仪－上海纽迈电子科技有限公司';
  Application.CreateForm(TFrm1Main, Frm1Main);
  Application.CreateForm(TFrmbd2, Frmbd2);
  Application.CreateForm(TFrmtest1, Frmtest1);
  Application.CreateForm(TFrmChaXun, FrmChaXun);
  Application.CreateForm(TFrmabout, Frmabout);
  Application.Run;
   //end
 // else
  //  begin
  //   Application.Terminate;
 //   end;
end.