Delphi多线程学习（6）：信号量Semaphore

信号量是建立在互斥量的基础之上，同时加入重要特性：提供了资源计数功能，因此预定义数量的线程同时可以进入同步的代码块中。
      信号量是维护0到指定最大值之间的计数器的同步对象，当线程完成一次信号量的等待时，计数器自减1，当线程释放信号量对象时，计数器自增1。
      借用上面的图书馆例子，信号量好像是多设几把管理钥匙。每次可以设定N把钥匙同时工作，那就有N个人员可以同时办理业务。
     信号量使用的一般步骤：
1、声明一个全局的信号量名柄，如：hSem:THandle;
2、创建信号量：CreateSemphore(
                              lpSemaphoreAttributes:PSecurityAttributes;
                              lInitialCount,lMaximumCount:LongInt;
                              lpName:PChar):THandle;stdcall;
  （lpSemaphoreAttributes参数，指向TSecurityAttributes记录的指针，一般可以缺省填入nil值；
    lInitialCount参数，是信号量对象的初始计数，是0~lMaximumCount之间的数。当它大于0时，信号量就进入了信号状态，当WaiForSingleObject函数释放了一个线程，信号量计数就减1。使用ReleaseSemphore函数可以增加信号量计数；
   lMaximumCount参数，是信号量对象计数的最大值；
   lpName参数，指定信号量的名字。）
3、用等待函数WaiForSingleObject协调线程。
4、当一个线程用完一个信号，释放。使用ReleaseSemphore(