在TThread对象中使用互斥量

用TThread以数组的方式做了个线程池，但在TThread中需要累加一个数值，如果未使用互斥量的话，那个数值可能一直累加不上去。

分别参考了http://www.cnblogs.com/railgunman/archive/2010/11/06/1870867.html和http://www.cnblogs.com/del/archive/2009/02/13/1390295.html，可以通过Win32函数CreateMutex和使用Delphi的TMutex来实现。

 

一、CreateMutex实现方法

 

1. 首先在主窗体中创建一个全局变量hMutex:THandle;

 

2. 接着分别在主窗体的Create和Destroy中进行互斥对象的创建和销毁。

 

hMutex := CreateMutex( nil, False, nil );

CloseHandle( hMutex );

 

3. 然后在需要使用互斥量的地方加入如下代码：

 

if WaitForSingleObject(hMutex,INFINITE)=WAIT_OBJECT_0 then  //进入

begin

..... //累加数值

end;

ReleaseMutex( hMutex ); //离开

 

二、TMutex实现方法

 

原理其实和CreateMuter一样，只是Delphi封闭了一下而已。不过在D7中没有该对象，所以未作测试。