Delphi下几种线程同步

总结一下Windows常用的几种线程同步技术。
1.Critical Sections（临界段），源代码中如果有不能由两个或两个以上线程同时执行的部分，可以用临界段来使这部分的代码执行串行化。它只能在一个独立的进程或一个独立的应用程序中使用。使用方法如下：
 //在窗体创建中
 InitializeCriticalSection(Critical1)
 //在窗体销毁中
 DeleteCriticalSection(Critical1)
 //在线程中
 EnterCriticalSection(Critical1)
 ……保护的代码
 LeaveCriticalSection(Critical1)
 
2.Mutex（互斥对象），是用于串行化访问资源的全局对象。我们首先设置互斥对象，然后访问资源，最后释放互斥对象。在设置互斥对象时，如果另一个线程（或进程）试图设置相同的互斥对象，该线程将会停下来，直到前一个线程（或进程）释放该互斥对象为止。注意它可以由不同应用程序共享。使用方法如下：
 //在窗体创建中
 hMutex:=CreateMutex(nil,false,nil)
 //在窗体销毁中
 CloseHandle(hMutex)
 //在线程中
 WaitForSingleObject(hMutex,INFINITE)
 ……保护的代码
 ReleaseMutex(hMutex)
 
3.Semaphore（信号量），它与互斥对象相似，但它可以计数。例如可以允许一个给定资源同时同时被三个线程访问。其实Mutex就是最大计数为一的Semaphore。使用方法如下：
 //在窗体创建中
 hSemaphore:=CreateSemaphore(nil,lInitialCount,lMaximumCount,lpName)
 //在窗体销毁中
 CloseHandle(hSemaphore)
 //在线程中
 WaitForSingleObject(hSemaphore,INFINITE)
 ……保护的代码
 ReleaseSemaphore(hSemaphore, lReleaseCount, lpPreviousCount)

4.还可以使用Delphi中的TcriticalSection这个VCL对象，它的定义在Syncobjs.pas中。
 
当你开发多线程应用时，并且多个线程同时访问一个共享资源或数据时，你需要考虑线程同步的问题了。
 
 5.CreateEvent也可以用于同步