prog wird nicht beendet windows nicht runtergefahren

[temp22]

servus

habe ein kleines großes problem

wenn mein prog läuft lässt sich windows nicht runterfahren und das programm schließt sich ewinfach nicht.
habe schon gesucht und auch beiträge gefunden aber es funzt einfach nicht.

fange das won windows gesendete WMQueryEndSession so ab

Delphi-Quellcode:

private
    { Private-Deklarationen }
      procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;

Delphi-Quellcode:

procedure TForm1.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
Msg.Result := 1;
Close;
end;

form ist stay ontop
habe ein button und 2 timer am laufen


wer kann mir noch weiterhelfen ich weiß einfach nicht wie ich es machen soll