project1.dpr

开发了一个用于模拟电梯的程序,虽然功能不是很强,但对于理解线程又很大的好处

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Define in 'Define.pas',
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Form2.ShowModal;
  Application.Run;
end.