扩展Delphi的线程同步对象

Delphi只提供了事件（TEvent）和临界区（Tcritical）两个同步对象来控制线程间的同步资源访问，如果要使用其他的同步对象如：信号灯、互斥等，就必须借助于Win 32 API函数，颇感不便，因此，本文用Delphi构造了两个类对信号灯和互斥对象进行了封装（分别为Tsemaphore和Tmutex），以期对广大Delphi编程人员有所帮助。