Delphi Tips & Tricks

privart
  FQueryEndSession : boolean;
  procedure WMQueryEndSession(var Msg: TWMQueryEndSession);
        message WM_QUERYENDSESSION;
-----------------------------------------------------------
procedure TForm1.WMQueryEndSession(var Msg:TWMQueryEndSession);
begin
  FQueryEndSession := true;
  inherited;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if FQueryEndSession then begin
    FQueryEndSession := false;
    //
    //ウィンドウズが終了する場合の処理
    // 
  end;

  if CanClose then
  begin
    //
    //普通にフォームが閉じられた場合の処理
    // 
  end;
end;