如何用Delphi編寫Win2000服務程序：

一、Win2000服務簡介

　　服務程序（Service Application）是一種運行于WinNT的后臺程序，每個服務程序（Service Application）中可能包含若干個服務（Service），每個服務就是其中的一個線程（該服務也可以創建多個子線程）。采用服務，應用程序可以獲得特殊的權限，而且不會被用戶通過Win2000的任務管理器直接結束程序，所以服務常常用來實現一些特殊的目標。

　　通過Win2000控制面板中的服務管理工具，我們可以設置/查看服務的特性：

　　（1）服務名稱；（2）顯示名稱；（3）描述；（4）啟動類型；（5）依賴關系；

　　其中，服務名稱是標識給服務的。

　　以Win2000的C:/WINNT/System32/services.exe程序為例子，該exe文件對應一個Service Application，是該服務程序的可見實體；該exe中包含多個服務（Service），例如Alerter，Dhcp（DHCP Client），Messenger等。當我們結束一個服務的時候，該服務所在的Service Application中的其他服務并沒有被終止。

　　在Delphi中，Borland的工程師為我們提供了TServiceApplication，TService，TServiceThread等類，封裝了大量細節，簡化了服務程序的開發。

二、TServiceApplication

　　在Delphi中，類TServiceApplication就對應上述的ServiceApplication。利用Delphi的開發環境，我們新建一個Service Application Project，同時就創建了一個繼承自TService的類。項目文件中的Application對象就是一個TServiceApplication實例。每個TServiceApplication包含若干個TService對象，正好對應上述的服務程序和服務之間的數量關系。

　　通過閱讀TServiceApplication和TService類的定義，可以得知，TServiceApplication從TComponent類繼承而來，TService從類TDataModule基礎而來，Application對象負責各個TService對象的Create和Destroy。跟蹤下列代碼

　　Application.CreateForm(TService1, Service1);

　　可以發現創建的TService對象的Owner都是Application對象；在VCL FrameWork中Owner總是負責Destroy各個Component對象（VCL的TComponent類采用了Composite模式），所以TServiceApplication也將Destroy各個TService對象。