CONST
  MAX_THREAD_COUNT=10;
  TOTAL_JOB_COUNT=1000;
  
var //全域變數
  Form1:TForm1;
  SemaphoreHandle:THandle;                 procedure Form1.ThreadDone(Sender:TObject);
begin
  ...
  ...  
  ReleaseSemaphore(SemaphoreHandle, 1, nil); //signaled waiting
end;    procedure Form1.StartThreadExec;
var
  mythread:TMyThread;
  i:inetger;
begin
  SemaphoreHandle := CreateSemaphore(nil, MAX_THREAD_COUNT, MAX_THREAD_COUNT, 'MySemaphore');  
  for i:=1 to TOTAL_JOB_COUNT do
  begin
     //在這裡等別的thread 完成 但主程式UI 可能會Hang住 要注意 可以另外用一個Thread 來作這些事情避免
     WaitForSingleObject(SemaphoreHandle, INFINITE);
     mythread:=TMyThread.Create(True); //Create with Suspended
     mythread.OnTerminate:=ThreadDone; //如果是在Thread 裡面等待就不需要這個了
     mythread.Resume:=True; //Start running thread
  end; 
end;

const
  SYNCHRONIZE = $00100000;
  STANDARD_RIGHTS_REQUIRED = $000F0000;
  SEMAPHORE_MODIFY_STATE = $0002;
  SEMAPHORE_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $3);    procedure TMyThread.Execute;
var
  SemaphoreHandle: THandle;      // holds the semaphore handle  
begin
  //或是在Thread這裡等, 但是要注意thread 會先執行起來等待,
  //SemaphoreHandle := OpenSemaphore(SEMAPHORE_ALL_ACCESS, FALSE, 'MySemaphore'); //Open a handle to the semaphore
  //WaitForSingleObject(SemaphoreHandle, INFINITE); 
  
  {do MyThread things after here}
  ...
  ...                               
  //ReleaseSemaphore(SemaphoreHandle, 1, nil);
  //CloseHandle(SemaphoreHandle);   
end;
           2.在Main thread Timer裡面處理    CONST
  MAX_THREAD_COUNT=10;
  TOTAL_JOB_COUNT=1000;
  
var //全域變數
  Form1:TForm1;
  threadCount, totalCount:integer;    procedure Form1.ThreadDone(Sender:TObject);
begin
  ...
  ...  
  Dec(threadCount);
end;    //以Timer方式 來啟動 Thread ： Timer 間隔可視情況調整
procedure Form1.Timer1Timer(Sender:TObject);
var
  mythread:TMyThread;
begin
  if totalCount<=TOTAL_JOB_COUNT then
  begin
     if threadCount        發表人 - chris_shieh 於 2005/01/06  13:24:47    發表人 - chris_shieh 於 2005/01/06  13:25:33