os.dpr

实现UP、DOWN原语 产生3个进程： 两个进程模拟需要进入临界区的用户进程。 当需要进入临界区时

program OS;

uses
  Forms,
  uMain in 'uMain.pas' {Main};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '操作系统课程设计 build 20030929';
  Application.CreateForm(TMain, Main);
  Application.Run;
end.