Windows wurde doch nicht heruntergefahren und ich merke davon nichts

[Der schöne Günther]

Wenn Windows heruntergefahren/abgemeldet wird und ich es richtig verstanden habe ist die Reihenfolge so:

1. WM_QUERYENDSESSION wird an die Anwendung gesendet
2. Das löst das OnCloseQuery-Event des VCL-Formulars aus
3. WM_ENDSESSION wird an die Anwendung gesendet um den unausweichlichen Shutdown zu verkünden

In der Doku zu WM_ENDSESSION steht dass dort (im WPARAM) angegeben wird ob denn nun abgemeldet wird oder sich der Benutzer umentschieden hat:

Zitat:

If the session is being ended, this parameter is TRUE; the session can end any time after all applications have returned from processing this message. Otherwise, it is FALSE.

Meine Testanwendung enthält folgenden Message-Handler:

Delphi-Quellcode:

procedure TForm1.WMEndSession(var Message: TWMEndSession);
begin
   ShuttingDown := Message.EndSession;
   //(Logge "ShuttingDown" in eine Textdatei)
   inherited;
end;

Ich starte meine Testanwendung, mache Notepad auf und tippe darin ein paar Buchstaben. Somit wird Windows am Herunterfahren gehindert da mich Notepad noch fragen wird ob ich denn nicht lieber speichern möchte.

Ich gehe auf Herunterfahren, bekomme den "Folgende Anwendungen verhindern das Herunterfahren"-Dialog und sage "Abbrechen".

Meine Anwendung hat den Erhalt der WM_ENDSESSION-Nachricht ordnungsgemäß protokolliert und meint, ShuttingDown sei True gewesen. Wie kann das sein? Es hätte doch False sein müssen. Wenn wirklich heruntergefahren wird, wird auch True protokolliert.


Irgendwas kann da nicht stimmen

[p80286]

Mal so herum gesponnen:
um x:00 fährst Du Windows herunter. Ein paar Anwendungen ignorieren das.
um x:30 sagst Du "Na gut dann eben nicht" und kümmerst Dich in Ruhe um die ignoranten Anwendungen.

Dann hat sich Deine brave Anwendung schon längst verabschiedet und bekommt nichts mehr mit.
Anders formuliert könnte es sein, daß Du nicht alle Messages protokollierst?

Gruß
K-H

[Der schöne Günther]

Ich reagiere explizit nur auf WM_QUERYENDSESSION ("Hey Leute, wir wollen abmelden") und WM_ENDSESSION ("Wir werden jetzt garantiert abmelden: j/n"). Andere Messages fallen mir nicht ein.

Eigentlich interessiert mich WM_ENDSESSION auch nicht einmal mehr, aber mir ist das aufgefallen und ich kann es nicht nachvollziehen warum das so ist.

[hathor]

Um welches WINDOWS geht es?
Seit WINDOWS VISTA ist alles anders:
https://msdn.microsoft.com/en-us/lib...or=-2147217396

[Der schöne Günther]

Es geht mir eigentlich um jedes Windows von XP bis 10. Dass sich hier mit Vista viel geändert hat weiß ich. Aber ich lese da nur heraus dass sich seit Vista das Verhalten mit WM_QUERYENDSESSION geändert hat, nicht aber WM_ENDSESSION.

[Sir Rufo]

Wenn deine Anwendung bei WM_QUERYENDSESSION ein True zurückliefert, dann ist dieses Verhalten durchaus korrekt, denn

Zitat:

When an application returns TRUE for this message, it receives the WM_ENDSESSION message, regardless of how the other applications respond to the WM_QUERYENDSESSION message.

[hathor]

Folgender Code ist für WIN8.1 völlig uninteressant - oder ist da etwas falsch?
Wie müsste er aussehen, um irgendeine Reaktion auszulösen?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    procedure WMQueryEndSession(var Msg: TWMQueryEndSession);
      message WM_QUERYENDSESSION;
    procedure WMEndSession(var Msg: TWMEndSession);
      message WM_ENDSESSION;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;

procedure TForm1.WMEndSession(var Msg: TWMEndSession);
begin
  if Msg.EndSession = True then
    ShowMessage('Windows is shutting down ' + #10#13 + 'at ' + FormatDateTime('c', Now));
  inherited;
end;

end.