Hi!
Ich habe mich jetzt ein wenig mit dem Thema befasst.
Da ich im Ereignis OnCloseQuery die Variable CanClose je nach Bedarf auf True oder false setze, hab ich mir nun eine globale Variable "AllowClose" gemacht vom Typ Boolean. Nun setze ich diese beim Programmstart auf False. Beim Herunterfahren des PCs wird sie auf True gesetzt, durch diesen Code (ist er richtig??):
Quelltext
1:
2:
3:
4:
| Procedure tForm1.WMQueryEndSession (Var Message: tMessage);
Begin
AllowClose:=True;
End; |
In OnCloseQuery wird CanClose nur dann evtl. auf False gesetzt, wenn AllowClose auch auf False steht, sonst wird CanClose direkt auf True gesetzt.
Jetzt habe ich aber das Problem, dass beim Herunterfahren von Windows nichts passiert, sprich der PC fährt nicht mehr herunter, gibt aber auch sonst keine Meldung von sich. Schließe ich mein Programm und versuche es erneut, fährt der PC runter.
Habt ihr dazu eine Idee?
Danke euch für die Hilfe!
mfg
Jojo
Gausi
WM_QUERYENDSESSION
).
