Prgramm verhindert herunterfahren

[ah63]

Hallo,

habe das gleiche Problem mit Programmen, die in der TNA liegen.
Das Herunterfahren wird durch das Ereignis WM_QUERYENDSESSION gemeldet.

Dieses Ereignis kann mit einer Botschaftsmethode abgefangen werden:

Code:

    procedure shutdownevent(var Msg:TWMQUERYENDSESSION); message WM_QUERYENDSESSION;

procedure TForm1.shutdownevent(var Msg:TWMQUERYENDSESSION);
begin
  Msg.Result:=1;
  close; // <= ohne dieses zusätzliche Schliessen ging es nicht
  Inherited;
end;

Laut Win32.hlp dürfte das Programm mit dem Rückgabewert 1 das Runterfahren nicht mehr blockieren,
tut es aber trotzdem, mit dem bekannten Resultat.
Erst ein zusätzliches close; löste das Problem.