本人想寫一個NT服務程式，但觀看先賢們的文章後 http://delphi.ktop.com.tw/topic.php?topic_id=22407 但發覺Service內定義的Thread祇能開機時執行一次便停下來了，請問各位大哥可否教我如何以Looping的方法，不斷的以Thread去檢測或執行某工作 謝謝

引言: 本人想寫一個NT服務程式，但觀看先賢們的文章後 http://delphi.ktop.com.tw/topic.php?topic_id=22407 但發覺Service內定義的Thread祇能開機時執行一次便停下來了，請問各位大哥可否教我如何以Looping的方法，不斷的以Thread去檢測或執行某工作 謝謝

naposhao 你好: 試試看在 Service 中的 Execute event procedure 中，加入以下的程式碼 < class="code"> while not Terminated do begin Sleep(1000); // 1 second // 這裡放你 Looping 中要做的事情 ServiceThread.ProcessRequests(False); end; 備註: 以下連結中有一個 Service Application 的範例程式(BCB 版本) http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31566 -- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2003/06/02 11:35:31

To RaynorPao版主: 多謝你的指導。 但多日觀看BCB的範例, 因本人對C毫無認識, 仍找不著頭緒。 請問可否給我深入的解釋一下。 謝謝

引言: To RaynorPao版主: 多謝你的指導。 但多日觀看BCB的範例, 因本人對C毫無認識, 仍找不著頭緒。 請問可否給我深入的解釋一下。 謝謝

naposhao 你好: 以下連結中有一個完整的範例(Delphi)，去下載看看吧