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.