用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中没有该对象,所以未作测试。