Delphi/CppBuilder

开发平台：

Delphi

Semaphore.dpr：源码内容

							program Semaphore;
uses
  Forms,
  SemaphoreFrm in 'SemaphoreFrm.pas' {frmSemaphore};
{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TfrmSemaphore, frmSemaphore);
  Application.Run;
end.

						