開發WINDOWS服務程序

開發WINDOWS服務程序

開發步驟:

　　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:\Book\DService\Project1.exe /install

　　這樣服務就安裝完成了

　　5、同樣，刪除時也是在cmd窗口輸入命令 appname /uninstall

　　如F:\Book\DService\Project1.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的編譯條件來切換服務程序和普通窗口程序了