delphi 信号量线程同步

另一种使线程同步的技术是使用信号量对象。它是在互斥的基础上建立的，但信号量增加了资源

计数的功能，预定数目的线程允许同时进入要同步的代码。可以用CreateSemaphore()来创建一个信号

量对象，其声明如下：

function CreateSemaphore(lpSemaphoreAttributes: PSecurityAttributes;
  lInitialCount, lMaximumCount: Longint; lpName: LPCWSTR): THandle; stdcall;

和CreateMutex()函数一样，CreateSemaphore()的第一个参数也是一个指向TSecurityAttributes记录
的指针，此参数的缺省值可以设为n i l。
lInitialCount参数用来指定一个信号量的初始计数值，这个值必须在0和lMaximumCount之间。此
参数大于0，就表示信号量处于发信号状态。当调用WaitForSingleObject()函数(或其他函数)时，此计

数值就减1。当调用ReleaseSemaphore()时，此计数值加1。

参数lMaximumCount指定计数值的最大值。如果这个信号量代表某种资源，那么这个值代表可用
资源总数。
参数lpName用于给出信号量对象的名称，它类似于CreateMutex()函数的lpName参数。

例

unit CriticaSection;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphic