project1.~dpr

delphi 控制设备程序

program Project1;

uses
  Forms,
  Controls,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {FmAbout},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6};

{$R *.res}

begin
  Application.Initialize;
  Form3:=TForm3.Create(Application);
  Form3.ShowModal;
  if (Form3.ModalResult=mrOK) then
//  if (Form3.ModalResult=1) then
  begin
    Application.Title := '测试软件';
    Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TFmAbout, FmAbout);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm6, Form6);
  Form3.Hide;
    Form3.Release;
    Application.Run;
 end;
end.