摘要：
procedure ThreadTest;stdcall;var Handles:TWOHandleArray; //Handle:THandle; Test:TTest; i:Integer;begin for i := 0 to 10 do begin Test := TTest.Create(False); Handles[i] := Test.Handle; end; WaitForMultipleObjects( 11, @Handles, True, INFINITE ); Form1.mmo1.Lines.Add( '123' );end;procedure TF 阅读全文
摘要：
用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. 接着分别在主窗体的C 阅读全文