semaphore.dpr

来自「《delphi深度编程及其项目开发》」· DPR 代码 · 共 14 行

program Semaphore;

uses
  Forms,
  SemaphoreFrm in 'SemaphoreFrm.pas' {frmSemaphore};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TfrmSemaphore, frmSemaphore);
  Application.Run;
end.