WaitForMultipleObjects和64个线程

Question

根据微软的文档，MAXIMUM_WAIT_OBJECTS是64 (等待句柄的最大值)，但是由于某种原因，有时(因为随机的) WaitForMultipleObjects返回WAIT_FAILED ($FFFFFFFF)，GetLastError返回ERROR_INVALID_HANDLE (6)。我做错了什么？

procedure TForm1.Button1Click(Sender: TObject);
var ArrayOfHandles:array of THandle;
    Threads,x:byte;
    ReturnValue:Cardinal;
begin

  Threads:=64;
  SetLength(ArrayOfHandles,Threads);

  for x:=0 to Threads-1 do
  begin
    WorkerThread:= TWorkerThread.Create(True);
    ArrayOfHandles[x]:=WorkerThread.Handle;
    WorkerThread.FreeOnTerminate:=true;
    WorkerThread.Priority := tpNormal;
    WorkerThread.Resume;
  end;

  ReturnValue:=WaitForMultipleObjects(Threads,@ArrayOfHandles[0],false,INFINITE);
  ShowMessage('ReturnValue='+IntToStr(ReturnValue)+#13+'GetLastError='+IntToStr(GetLastError));

end;

procedure TWorkerThread.Execute;
begin

  sleep( Random(1000) );

end;

Answer 1

好的。我是个笨蛋。这一定是假的！

WorkerThread.FreeOnTerminate:=false;