用Delphi編寫Win2000服務程序
摘要：本文介紹用Delphi來寫Win2000服務程序，所涉及的類別是TServiceApplicatoin，TService，TServiceThread等。
關鍵字： Service/服務
一、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物件。
下面追蹤TServiceApplication.Run的程式碼，可以發現TServiceApplication先解析運行參數，實作了服務的Install和Uninstall。然後，初始化一個ServiceStartTable數組，該數組包含了各個service對象的服務名稱和運行入口；最後創建一個TServiceStartThread 對象，該對像是一個線程對象，從線程調用API：StartServiceCtrlDispatcher來啟動ServiceStartTable中指定的若干個服務；而ServiceApplication主執行緒就不斷循環，處理訊息，例如接收請求來停止/暫停某個服務。
三、TService
TService類別繼承自類別TDataModule，這意味著我們可以加入大量的VCL控件，實現豐富的功能。此外，我們還可以處理OnStart，OnPause，OnStop，OnContinue，OnCreate，OnShutDown等事件。其中需要說明的是：OnStop表示該服務被停止；而OnShutDown表示該ServiceApplication停止運行，這意味著其他服務也被終止了；兩者意義是不一樣的。
前面講過，ServiceApplication透過呼叫StartServiceCtrlDispatcher來啟動各個服務。 StartServiceCtrlDispatcher啟動TService的入口，入庫就是TService.Main。 TService.Main先註冊服務，然後呼叫TService.DoStart。 TService.DoStart創建一個內部TServiceThread成員對象，這是一個線程對象；考察TServiceThread.Execute可以得知，當我們處理的TService1. OnExecute，那麼TService會把所有的請求委託給該TServiceThread成員對象處理，該對像以預設的方式處理所有的請求。
TService. ServiceExecute是TService的主體內容。一個服務要正常運行，除了需要處理它要注意的目標（例如監聽某個連接埠、執行某個任務等）外，還要回應外部命令/請求：例如終止、暫停、恢復該服務。因此可以考慮建立一個專門的執行緒來完成該任務，而在ServiceExecute中處理外面命令/請求。因此程式碼如下：
while not Terminated do begin
ServiceThread.ProcessRequests(False);
end;
當然，也可以在OnExecute中處理某些任務，例如監聽某個端口，但是這常常會導致該Service不能及時回應Stop/Pause等請求。當OnExecute執行完了，該服務實際上就完成了任務要結束了（terminate）。
參考資料：
MSDN，Delphi VCL原始碼，Delphi幫助文檔