Delphi開發Windows服務程序
開發步驟:1、New->Other->ServiceApplication2、現在一個服務程序的框架已經搭起來了，打開Service1窗口，有幾個屬性說明一下：AllowPause:是否允許暫停AllowStop:是否允許停止Dependencies:設置服務的依存關系，服務的啟動是否依賴於某個服務或者組DisplayName:在“服務”窗口顯示的名稱Interactive:設置
開發步驟: 1、New->Other->Service Application 2、現在一個服務程序的框架已經搭起來了，打開Service1窗口，有幾個屬性說明一下： AllowPause:是否允許暫停 AllowStop: 是否允許停止 Dependencies: 設置服務的依存關系，服務的啟動是否依賴於某個服務或者組 DisplayName: 在“服務”窗口顯示的名稱 Interactive: 設置為true時可以和Windows桌面進行交互，如果我們想在服務里顯示窗體的話此設置就要設置為true，另外ServiceType必須為stWin32 Password: 密碼 StartType: 啟動方式 3、如果我們想讓服務與窗體交互，步驟如下： 在工程中新建一個窗體fmMain 然后在Service1的OnStart中寫代碼 procedure TService1.ServiceStart(Sender: TService; var Started: Boolean); begin Started := True; Svcmgr.Application.CreateForm(TFmMain, fmMain); FmMain.show; end;
OnStop的代碼 procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean); begin Stopped := True; FmMain.Free; end; 這樣在服務啟動的時候就會顯示出新建的那個窗體 4、編譯完成后，我們可以安裝服務了，安裝方法為： 在cmd窗口中執行 appname /install， 如F:BookDServiceProject1.exe /install 這樣服務就安裝完成了 5、同樣，刪除時也是在cmd窗口輸入命令 appname /uninstall 如F:BookDServiceProject1.exe /uninstall
關於其他： 1、關於服務程序的調試 如果我們開發的服務有多個窗體，程序的調試無疑是個大問題 其實服務程序稍微一改就能改成一個標准的Win32工程，為了防止不停的變來變去，我們可以加上一個編譯條件，通過編譯條件來切換生成服務程序還是普通可執行程序，假設編譯條件為 NormalApp，在以下幾個地方需要加入編譯條件 工程文件中，單元的引用 {$IFDEF NormalApp} Forms, {$ELSE} SvcMgr, {$ENDIF}
工程初始化 {$IFDEF NormalApp} Application.Initialize; Application.CreateForm(TFmMain, FmMain); Application.Run; {$ELSE} if not Application.DelayInitialize or Application.Installing then Application.Initialize; Application.CreateForm(TService1, Service1); Application.Run; {$ENDIF} 這樣我們就可以通過增加/刪除NormalApp的編譯條件來切換服務程序和普通窗口程序了