delphi - 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;