Programm soll sich nicht beenden lassen

[kalmi01]

Zitat:

Warum dann nicht WM_QueryEndSession in einem globalen Hook "abfangen".

Warum so umständlich ?
Ein Prog, welches Windows am beenden hindert reicht doch schon.
Im Idealfall also das Prog, welches auch nicht beendet werden soll.

Delphi-Quellcode:

procedure WMQueryEndSession(var Msg: TMessage); message WM_QUERYENDSESSION;
......

procedure TForm1.WMQueryEndSession;
  begin
    Msg.Result := 0;   //Windows muss das Runterfahren stoppen

    CleanALL;

    Down := true;
    Msg.Result := 1;   //Windows darf Runterfahren
  end;

aus diesem Thread
Ich hoffe es hilft.