解決trayicon類似控制項等，導致無法關機，登出和重啟問題

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if NowIsShow then begin TrayIcon1.MinimizeApp; CanClose := False end else CanClose := True; //引起問題的程式: // CanClose := false; // TrayIcon1.MinimizeApp; //目的是當使用者點擊視窗上的關閉的時候，系統不關閉而是以圖示的形式在後臺繼續運行 //導致的結果是：導致作業系統無法關機，登出和重啟。因為這個程式一直在運行關閉不了 //同時要注意在此類事件不要寫關閉前的資訊提示，例如（這樣也會帶來同樣的問題） ： if Application.MessageBox('是否真的要【退出】?','資訊提示', MB_YESNO + MB_ICONINFORMATION) = IDYES then begin Application.Terminate; end;