引言: 我寫了一個 Service 的程式，可以正常的啟動及停止； 但當該Service 於啟動狀態下將 Server 關機時，就無法關機成功， Service 停止便可以關機。 請問，我要該如何做才能在啟動狀態下關機呢？

xBaby 你好: 請參考以下連結文章(BCB 版本的 Service Application)

 
Detecting Windows Shutdown    To detect Windows Shutdown, you must trap WM_EndSession message. These steps should be taken: 
Declare a message handling procedure in your Form's Private section:     procedure WMEndSession(var Msg : TWMEndSession); message WM_ENDSESSION;     Add the procedure to the implementation section of your Unit:     procedure TForm1.WMEndSession(var Msg : TWMEndSession); 
begin 
  if Msg.EndSession = TRUE then 
    ShowMessage('Windows is shutting down '   #13   'at '   
      FormatDateTime('c', Now)); 
  inherited; 
end;     Tip submitted by Steve Harman         Detecting Windows shutdown
When Windows is shutting down, it sends a WM_QueryEndSession to all 
open applications. To detect (and prevent shutdown), you must define 
a message handler to this message. Put this definition on the private section of the main form:         procedure WMQueryEndSession(var Msg : TWMQueryEndSession); message WM_QueryEndSession; 
And put this method in the implementation section of the unit:     procedure TForm1.WMQueryEndSession(var Msg : TWMQueryEndSession); 
begin 
  if MessageDlg('Close Windows ?', mtConfirmation, [mbYes,mbNo], 0) = mrNo then 
    Msg.Result := 0 
  else 
    Msg.Result := 1; 
end;     http://www.geocities.com/SiliconValley/8055/tips.htm#tip19