引言: to hao_chih: 測試結果 OK 不過，想請問， < class="code"> void __fastcall TForm1::butNewThreadClick(TObject *Sender) { TMyThread *MyThread = new TMyThread(); MyThread->iMyThreadID = iMaxThreadID; iWaitThreadCount ; } 這個事件函式，可由 Timer 叫用或按鈕叫用，而我在使用時，可能由另一個執行緒叫用，會不會也因重入而發生不可預期的結果呢? 如何可以確保紅色部分不會因重入而使得兩個執行緒 iMyThreadID 相同呢? 還是說不可能發生重入? 沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

引言: 就因為多執行緒之間會發生行執行緒重複呼叫，所以在重要區段之間得使用互斥元或旗標或事件來控制單一或多個執行緒的呼叫。 第一次建立執行緒時，執行緒會幫你自己建立一個隱形的視窗，所以當多行緒執行VCL元件時，得呼叫Synchronize方法來使用. 當執行緒呼叫Synchronize時會使用SeedMessage傳送訊息給我們所建立的隱形視窗，記得，隱形視窗就如同Form2，與Form1為單一執行緒，以確保VCL的"單一執行"，才不會有所謂的重入現象 學而時習之不亦樂乎!

對不起，我看不太懂 結論是不會重入還是會重入? 麻煩您再解說一下，謝謝。 另外，以 >沒空更新的網頁... href="http://dllee.adsldns.org">http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

引言: to anpino: 我之前就是使用 CRITICAL_SECTION 來保護，想說，使用 CRITICAL_SECTION 應該就不會重入了，沒想到，在 CRITICAL_SECTION 內如果叫用的函式有使用到 Application->ProcessMessages()，CRITICAL_SECTION 就失效，導致第二個也進入了... 也許我對 CRITICAL_SECTION 還不夠了解，只了解片面的用法，如下:

void __fastcall TForm1::TestCS(TObject *Sender)
{ 
  static CRITICAL_SECTION *pcsTEST=NULL;
  if(pcsTEST==NULL)
  {
    pcsTEST=new CRITICAL_SECTION;
    InitializeCriticalSection(pcsTEST);
  }
  EnterCriticalSection(pcsTEST);
  try
  {
    Label1->Caption=String(Label1->Caption.ToIntDef(0) 1);
    ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       "test CS....");
    TestCS(Sender); // 故意再叫用自己
  }
  __finally
  {
    LeaveCriticalSection(pcsTEST);
  }
}

我故意直接再叫用自己也是可以的，為什麼? 不是還沒有 LeaveCriticalSection 嗎? 我以為故意叫用的會當在 EnterCriticalSection，可是沒有，為什麼 <> >>);仍然是> 我原有系統的問題是: < class="code">EnterCriticalSection CALL FUNCTION_A; CALL FUNCTION_B; LeaveCriticalSection 而 FUNCTION_A 可能又叫用 FUNCTION_C，FUNCTION_C 可能又叫用 FUNCTION_D，而在 FUNCTION_D 中有使用到 Application->ProcessMessages()，而當發生重入時，系統變得異常， FUNCTION_D用Enter/LeaveCriticalSection夾住。 由 LOG 上看到的程式流程實在是難以想像到底當時的狀況是什麼 <>> < face="Verdana, Arial, Helvetica"> ------------------------------- 數學系是內功很強(邏輯/分析) 資工系是招式很多(程式技巧) 就像令狐沖

引言:

void __fastcall TForm1::butNewThreadClick(TObject *Sender)
{
    TMyThread *MyThread = new TMyThread();
    MyThread->iMyThreadID =   iMaxThreadID;
    iWaitThreadCount  ;
}

這個事件函式，可由 Timer 叫用或按鈕叫用，而我在使用時，可能由另一個執行緒叫用，會不會也因重入而發生不可預期的結果呢? 如何可以確保紅色部分不會因重入而使得兩個執行緒 iMyThreadID 相同呢? 還是說不可能發生重入?

引言: pcsTEST已經在EnterCriticalSection時得到使用/呼叫/執行CRITICAL_SECTION內程式的執行權, pcsTEST當然可以再次執行自己, 因為pcsTEST並未LeaveCriticalSection。 也就是說CRITICAL_SECTION內的程式執行權仍然是由pcsTEST獨享。 注意TestCS(Sender); 之後第二次 EnterCriticalSection(pcsTEST);仍然是pcsTEST進入CRITICAL_SECTION, 此時執行權仍在pcsTEST, 所以pcsTEST可以進入。

所以，EnterCriticalSection 就不能防重入了...

void __fastcall TForm1::TestCS(TObject *Sender)
{ 
  EnterCriticalSection(pcsTEST);
  try
  {
    Label1->Caption=String(Label1->Caption.ToIntDef(0) 1);
    ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       "test CS....");
    TestCS(Sender); // 故意再叫用自己
  }
  __finally
  {
    LeaveCriticalSection(pcsTEST);
  }
}

因為這樣也還是不行，那是否要變成

void __fastcall TForm1::TestCS(TObject *Sender,CRITICAL_SECTION *pcsTEST)
{ 
  EnterCriticalSection(pcsTEST);
  try
  {
    Label1->Caption=String(Label1->Caption.ToIntDef(0) 1);
    ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       "test CS....");
    // TestCS(Sender); // 故意再叫用自己 鐵定重入不再測試
  }
  __finally
  {
    LeaveCriticalSection(pcsTEST);
  }
}

由叫用者自行 NEW/DELETE CRITICAL_SECTION 如:

FUNCATION_OR_TIMER_OR_THERAD_A()
{
  CRITICAL_SECTION *pcsTEST=new CRITICAL_SECTION;
  InitializeCriticalSection(pcsTEST);
  TestCS(NULL,pcsTEST);
  delete pcsTEST; 
}
FUNCATION_OR_TIMER_OR_THERAD_B()
{
  CRITICAL_SECTION *pcsTEST=new CRITICAL_SECTION;
  InitializeCriticalSection(pcsTEST);
  TestCS(NULL,pcsTEST);
  delete pcsTEST; 
}

如此 A,B 兩函式同時亂叫用 TestCS 就會有防重入的效果呢? P.S. 我以前寫的 CRITICAL_SECTION 似乎都白寫了 <>< face="Verdana, Arial, Helvetica">引言: 我原有系統的問題是:

EnterCriticalSection
 CALL FUNCTION_A;
 CALL FUNCTION_B;
LeaveCriticalSection

而 FUNCTION_A 可能又叫用 FUNCTION_C，FUNCTION_C 可能又叫用 FUNCTION_D，而在 FUNCTION_D 中有使用到 Application->ProcessMessages()，而當發生重入時，系統變得異常， FUNCTION_D用Enter/LeaveCriticalSection夾住。 ------------------------------- 數學系是內功很強(邏輯/分析) 資工系是招式很多(程式技巧) 就像令狐沖VS東方不敗:D -------------------------------

TIMER_OR_THREAD_OR_EVENT()
{
 EnterCriticalSection(AB);
  CALL FUNCTION_A;
  CALL FUNCTION_B;
 LeaveCriticalSection(AB);
}
FUNCTION_A
{
 CALL FUNCTION_C;
}
FUNCTION_C
{
 EnterCriticalSection(D);
 CALL FUNCTION_D;
 LeaveCriticalSection(D);
}
FUNCTION_D
{
 FOR LOOP
 {
   Application->ProcessMessages();
   // DO SOMETHING
 } 
}

引言: 1.單一執行緒不會存在重入問題，而是存在遞回的問題(你的問題一直在這兒打轉)。 2.使用多執行緒不用刻意呼叫ProcessMessages，因為這個方法是呼叫PeekMessage去讀取系統裡視窗訊息，而TThread並無視窗所以不用去刻意呼叫它。 3.在程式裡頭的Timer所傳送的WM_TIME是由系統發出的一個訊息，就好像你定時按下某個按鍵讓他做事(在fomr裡的單一執行緒) 4.在Form裡使用了多執行緒，就是要做運做較長的工作，把比較簡單的工作放在Form裡，讓Form裡的訊息能持續進行，所以能拿掉ProcessMessages方法 5.所有執行緒要執行VCL都須透過Synchronize 附註： EnterCriticalSection(D); LeaveCriticalSection(D); 或互斥元、旗標、事件只為多執行緒存在，而不適用於單一執行緒!! 可能由Timer發送或其他執行緒發送 void __fastcall TForm1::butNewThreadClick(TObject *Sender) { TMyThread *MyThread = new TMyThread(); MyThread->iMyThreadID = iMaxThreadID; iWaitThreadCount ; } 由於上方的程式碼介於VCL之間，所以請透過Synchronize來呼叫，便不會發生 重入的問題。 若是非VCL而是自訂函數，請使用互斥元或EnterCriticalSection之類來確保他單一執行。 //如果不透過以上方法，很難保程式會發生錯亂。 學而時習之不亦樂乎!

引言: 所以，EnterCriticalSection 就不能防重入了...

引言: 這個事件函式，可由 Timer 叫用或按鈕叫用，而我在使用時，可能由另一個執行緒叫用，會不會也因重入而發生不可預期的結果呢? 如何可以確保紅色部分不會因重入而使得兩個執行緒 iMyThreadID 相同呢? 還是說不可能發生重入?

基本上是不會發生的，因為我取得iMaxThreadId是放在主要的程序中(MainTread)，主程式是單緒執行，一定要排隊。所以照理說應該不會發生同樣的id情況。 <>< face="Verdana, Arial, Helvetica">引言: 還有一點，個人覺得粉好奇，做啥要在THREAD中呼叫 Application->ProcessMessages()，因為你是在另外一個THREAD之中喔，而你能確定 Application->ProcessMessages（）裡面的程式碼，都是THREAD SAFE的嗎？恩...不一定喔

因為會透過Synchronize呼叫到主程式嘛 發表人 -

引言: 寫MULTITHREAD程式，要先有一個觀念，除非你能確定，你所呼叫的FUNCTION、所操作的OBJECT都是THREAD SAFE，不然都應該視為不是THREAD SAFE的喔

我要如何確認一個 FUNCTION/OBJECT 是 THREAD SAFE 的呢? P.S. 我的程式是 1 個 EXE 載入 50 個左右的 DLL 檔，而每一個 DLL 可能載入 1 到 10 個分身不等，部分 DLL 檔會有特殊元件，每個元件開兩個 ThreadTimer 時間 20ms 及 125ms 分別執行兩個 StateMachine，因為在事件中可能會操作 VCL 或 GUI，所以 ThreadTimer 都使用 Synchronize 的方式叫用 OnThreadTimer 事件，執行時約占 150MB 的記憶體。提供參考 >單一執行緒不會存在重入問題 < class="code"> //--------------------------------------------------------------------------- bool StopProcess; bool UsingNormalTimer=true; bool UsingThreadTimer=false; bool SynchronizeInThreadTimer=true; void __fastcall TForm1::Button6Click(TObject *Sender) { if(UsingNormalTimer) // Timer Interval 為 2000 { Timer4->Enabled=true; } else if(UsingThreadTimer) // ThreadTimer Interval 為 2000 { LMDHiTimer1->Enabled=true; LMDHiTimer1->Synchronize=SynchronizeInThreadTimer; } ListBox1->Items->Add(Now().FormatString("HH:NN:SS ") "Start for loop"); StopProcess=false; for(int i=1;i<100000000;i ) { int x=(((i*i*i*i i)/i)%i)-i/2; if(CheckBox1->Checked) // 在沒有 ProcessMessages 的狀況下，不可能重入 Application->ProcessMessages(); if(StopProcess) { Timer4->Enabled=false; LMDHiTimer1->Enabled=false; ListBox1->Items->Add(Now().FormatString("HH:NN:SS ") "Force break the for loop"); return; } } Timer4->Enabled=false; LMDHiTimer1->Enabled=false; ListBox1->Items->Add(Now().FormatString("HH:NN:SS ") "Finished for loop"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button7Click(TObject *Sender) { StopProcess=true; ListBox1->Items->Add(Now().FormatString("HH:NN:SS ") "Setting StopProcess by Button"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer4Timer(TObject *Sender) { StopProcess=true; ListBox1->Items->Add(Now().FormatString("HH:NN:SS ") "Setting StopProcess by Timer"); } //--------------------------------------------------------------------------- void __fastcall TForm1::LMDHiTimer1Timer(TObject *Sender) { StopProcess=true; ListBox1->Items->Add(Now().FormatString("HH:NN:SS ") "Setting StopProcess by LMD ThreadTimer"); } //--------------------------------------------------------------------------- ■ CASE1 bool UsingNormalTimer=true; bool UsingThreadTimer=false; bool SynchronizeInThreadTimer=true; 結果 16:18:06 Start for loop 16:18:12 Finished for loop 16:18:15 Start for loop 在過程中我按了一次Button7 16:18:21 Finished for loop 16:18:21 Setting StopProcess by Button Button7在loop結束後才執行 16:18:24 Start for loop 在過程中我按了兩次Button7 16:18:30 Finished for loop 16:18:30 Setting StopProcess by Button兩次Button7在loop結束後才執行 16:18:30 Setting StopProcess by Button 在此過程 Timer4Timer 都沒執行到，應該是等到它要執行時，Timer已Disable了。 ■ CASE2 bool UsingNormalTimer=true; bool UsingThreadTimer=true; bool SynchronizeInThreadTimer=true; 結果 16:36:33 Start for loop 16:36:39 Finished for loop 16:36:39 Setting StopProcess by LMD ThreadTimer 16:36:41 Start for loop 16:36:47 Finished for loop 16:36:47 Setting StopProcess by LMD ThreadTimer 因為使用了 Synchronize 的緣故，所以 ThreadTimer 在過程中觸發了，但以 Synchronize 排入主執行緒，所以在 loop 後才執行。 ■ CASE3 bool UsingNormalTimer=true; bool UsingThreadTimer=true; bool SynchronizeInThreadTimer=false; 結果 16:38:39 Start for loop 16:38:41 Force break the for loop 16:38:41 Setting StopProcess by LMD ThreadTimer 16:38:42 Start for loop 16:38:44 Force break the for loop 16:38:44 Setting StopProcess by LMD ThreadTimer 如同預期，在沒有使用 Synchronize 的狀況下，會同時進行，使得 for loop 中斷。 相信以上的整理可以讓大家清楚 Thread/Synchronize 及單執行緒不會重入的問題。 to anpino, 對於 CRITICAL_SECTION 的用法，我還是不了解，如果按您的方法，如果我有 10 個 .cpp 都會叫用同一個 FUNCTION_X，而我希望這個 FUNCTION_X 不要重入的話，是每一個 .cpp new 自己的 CRITICAL_SECTION 並 EnterCriticalSection 後再叫用 FUNCTION_X 是這樣子嗎? 對於 CRITICAL_SECTION 是這樣用嗎? 還是 CRITICAL_SECTION 本來不是用在這方面呢? 而我原有的系統使用多個執行緒，每個執行緒也都使用了 Synchronize 的方式執行其 OnTimer 事件，也許是有部分函式用到 Application->ProcessMessages() 的關係，導致從 LOG 上看到有重入的現象，包含 LOG 函式本身都重入了(因為 LOG 字串被截了一半的狀況發生很多次)，但在加了 CRITICAL_SECTION 後，由 LOG 函式看來是沒有重入了，而我用的方法就如同前述的 void __fastcall TForm1::TestCS(TObject *Sender) 函式。 但此法以 anpino 版主的說法，及測試程式，似乎說明了無法防重入... ... 對於此部分，還在混亂思考中... 沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell.... 發表人 - dllee 於 2004/05/07 17:00:31

引言: to anpino, 對於 CRITICAL_SECTION 的用法，我還是不了解，如果按您的方法，如果我有 10 個 .cpp 都會叫用同一個 FUNCTION_X，而我希望這個 FUNCTION_X 不要重入的話，是每一個 .cpp new 自己的 CRITICAL_SECTION 並 EnterCriticalSection 後再叫用 FUNCTION_X 是這樣子嗎? 對於 CRITICAL_SECTION 是這樣用嗎? 還是 CRITICAL_SECTION 本來不是用在這方面呢? 而我原有的系統使用多個執行緒，每個執行緒也都使用了 Synchronize 的方式執行其 OnTimer 事件，也許是有部分函式用到 Application->ProcessMessages() 的關係，導致從 LOG 上看到有重入的現象，包含 LOG 函式本身都重入了(因為 LOG 字串被截了一半的狀況發生很多次)，但在加了 CRITICAL_SECTION 後，由 LOG 函式看來是沒有重入了，而我用的方法就如同前述的 void __fastcall TForm1::TestCS(TObject *Sender) 函式。 但此法以 anpino 版主的說法，及測試程式，似乎說明了無法防重入... ... 對於此部分，還在混亂思考中...

吼~~~ 一次回答那麼多人的回應, 辛苦啦~~ 老實說, 我原本以為你要每一個 .cpp new 自己的 CRITICAL_SECTION 並 EnterCriticalSection 後再叫用CRITICAL_SECTION 封裝區的程式, 才宣告CRITICAL_SECTION *pcsTEST[40] = {NULL}; 看來誤會大啦。 CRITICAL_SECTION就是防止"其他"CRITICAL_SECTION進入, 直到原有的CRITICAL_SECTION執行LeaveCriticalSection, "其他"CRITICAL_SECTION才能進入。 也就是說, 下面這個程式"其他"CRITICAL_SECTION絕對無法進入:

void __fastcall TForm1::TestCS(TObject *Sender)
{ 
  static CRITICAL_SECTION *pcsTEST=NULL;
  static CRITICAL_SECTION *pcsLastTEST=NULL;      if(pcsTEST==NULL)
  {
    pcsTEST=new CRITICAL_SECTION;
    InitializeCriticalSection(pcsTEST);
  }
  EnterCriticalSection(pcsTEST);
  try
  {
    pcsLastTEST = pcsTEST;
    pcsTEST = NULL;
    Label1->Caption=String(Label1->Caption.ToIntDef(0) 1);
    ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       "test CS....");
  }
  __finally
  {
    LeaveCriticalSection(pcsLastTEST);
    delete pcsLastTEST;
    pcsLastTEST = NULL;
  }
}

對於CRITICAL_SECTION, 可以參考下面文章: 1. Delphi中的线程类 http://www.csdn.net/search_ok.asp 2. UML软件工程组织 北京火龙果软件工程技术中心 Visual C 线程同步技术剖析 http://www.uml.org.cn/net/20043177.htm ------------------------------- 數學系是內功很強(邏輯/分析) 資工系是招式很多(程式技巧) 就像令狐沖

引言: 我要如何確認一個 FUNCTION/OBJECT 是 THREAD SAFE 的呢? P.S. 我的程式是 1 個 EXE 載入 50 個左右的 DLL 檔，而每一個 DLL 可能載入 1 到 10 個分身不等，部分 DLL 檔會有特殊元件，每個元件開兩個 ThreadTimer 時間 20ms 及 125ms 分別執行兩個 StateMachine，因為在事件中可能會操作 VCL 或 GUI，所以 ThreadTimer 都使用 Synchronize 的方式叫用 OnThreadTimer 事件，執行時約占 150MB 的記憶體。提供參考

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
static bool ReEnterFlag = false;
if (ReEnterFlag)  return;
ReEnterFlag = true;
//Do some thing
Application->ProcessMessages();
ReEnterFlag = false;
}

引言: lu 兄果然是高手!! 佩服佩服! 在下今日有幸遇到高手上課, 真是高興阿!

賣安ㄋ共....賣安ㄋ共...< > 這只是...血淚史而已（呵呵～～好像誇張了一點< >） 這都是小弟的一點點經驗而已，偶是寫Winsocket 通訊，所以要寫Multi Thread程式，當然中間遇到粉多問題，差點沒花轟，不過還好有解決啦...其中也運過類似的問題，資源鎖定、效率太差，當然還有所謂的『重入』的問題，所以有些經驗而已.... 大家互相交流，互通有無嘛，反正大家都是...<>苦命的軟體工程師嘛 ========================= <>大家一起快樂寫程式

//---------------------------------------------------------------------------
void __fastcall TForm1::TestCS(TObject *Sender)
{
  static CRITICAL_SECTION *pcsTEST=NULL;
  static CRITICAL_SECTION *pcsLastTEST=NULL;      if(pcsTEST==NULL)
  {
    pcsTEST=new CRITICAL_SECTION;
    InitializeCriticalSection(pcsTEST);
  }
  EnterCriticalSection(pcsTEST);
  try
  {
    pcsLastTEST = pcsTEST;
    pcsTEST = NULL;
    ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       ((TComponent*)(Sender))->Name " start test CS....");
    for(int i=1;i<100000000;i  )
    {
      int x=(((i*i*i*i i)/i)%i)-i/2;
    }
    ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       ((TComponent*)(Sender))->Name " finish test CS....");
  }
  __finally
  {
    LeaveCriticalSection(pcsLastTEST);
    delete pcsLastTEST;
    pcsLastTEST = NULL;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
  LMDHiTimer2->Interval=2000;
  LMDHiTimer3->Interval=3000;
  LMDHiTimer2->ThreadPriority=tpNormal;
  LMDHiTimer3->ThreadPriority=tpNormal;
  LMDHiTimer2->Enabled=!LMDHiTimer2->Enabled;
  LMDHiTimer2->Synchronize=false;
  LMDHiTimer3->Enabled=LMDHiTimer2->Enabled;
  LMDHiTimer3->Synchronize=false;
  if(LMDHiTimer2->Enabled)
    ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       " Now Turn ON Timer....");
  else
    ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       " Now Turn OFF Timer....");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LMDHiTimer2Timer(TObject *Sender)
{
  ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       ((TComponent*)(Sender))->Name " OnTimerEvent....");
  TestCS(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LMDHiTimer3Timer(TObject *Sender)
{
  ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       ((TComponent*)(Sender))->Name " OnTimerEvent....");
  TestCS(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  static bool ReEnterFlag = false;
  if (ReEnterFlag)  return;
  ReEnterFlag = true;
  //Do some thing
  Application->ProcessMessages();
  ReEnterFlag = false;
}

PROCESS_FUNCTION()
{
 {
   // 可以擋住第二次以上的叫用直到 Main Process Block 作完，再往下作
 }
┌──────────
│ Main Process Block
└──────────
}

引言: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=49727 我是來亂的 此文看看 是否有用 如有d sir就po位置把

感謝您提供的資訊，內容相當精彩 交大資科所-自動化資訊處理實驗室 >沒空更新的網頁... href="http://dllee.adsldns.org">http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

//---------------------------------------------------------------------------
static CRITICAL_SECTION *pcsTestCS2=NULL;
void __fastcall TForm1::TestCS2(TObject *Sender)
{
  if(pcsTestCS2==NULL)
  {
    pcsTestCS2=new CRITICAL_SECTION;
    InitializeCriticalSection(pcsTestCS2);
  }
  EnterCriticalSection(pcsTestCS2);
  try
  {
    ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       ((TComponent*)(Sender))->Name " start test CS2....");
    for(int i=1;i<100000000;i  )
    {
      if(CheckBox1->Checked // 允許 Application->ProcessMessages in for loop?
      && i00000==0) Application->ProcessMessages();
      int x=(((i*i*i*i i)/i)%i)-i/2;
    }
    ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       ((TComponent*)(Sender))->Name " _end_ test CS2....");
  }
  __finally
  {
    LeaveCriticalSection(pcsTestCS2);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
  LMDHiTimer4->Interval=2000;
  LMDHiTimer5->Interval=3000;
  LMDHiTimer4->ThreadPriority=tpNormal;
  LMDHiTimer5->ThreadPriority=tpNormal;
  LMDHiTimer4->Enabled=!LMDHiTimer4->Enabled;
  LMDHiTimer4->Synchronize=CheckBox4->Checked;
  LMDHiTimer5->Enabled=LMDHiTimer4->Enabled;
  LMDHiTimer5->Synchronize=CheckBox4->Checked;
  if(LMDHiTimer4->Enabled)
    ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       String("Now Turn ON Timer....")
       ((CheckBox4->Checked)?"[Synchronize]":"[Non Synchronize]")
       ((CheckBox1->Checked)?"[ProcessMessagesInLoop]":"[NO ProcessMessagesInLoop]"));
  else
    ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       "Now Turn OFF Timer....");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LMDHiTimer4Timer(TObject *Sender)
{
  ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       ((TComponent*)(Sender))->Name " start OnTimerEvent....");
  this->Update(); // 因為使用 Synchronize GUI 已無法操作，所以強制重繪看過程
  TestCS2(Sender);
  ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       ((TComponent*)(Sender))->Name " _end_ OnTimerEvent....");
  this->Update(); // 因為使用 Synchronize GUI 已無法操作，所以強制重繪看過程
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LMDHiTimer5Timer(TObject *Sender)
{
  ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       ((TComponent*)(Sender))->Name " start OnTimerEvent....");
  this->Update(); // 因為使用 Synchronize GUI 已無法操作，所以強制重繪看過程
  TestCS2(Sender);
  ListBox1->Items->Add(Now().FormatString("HH:NN:SS ")
       ((TComponent*)(Sender))->Name " _end_ OnTimerEvent....");
  this->Update(); // 因為使用 Synchronize GUI 已無法操作，所以強制重繪看過程
}
//---------------------------------------------------------------------------