wer oder Was schließt mein Programm?

[happyaura]

Hallo,

ich bin auf der suche nach einer möglichkeit, rauszufinden, wie mein program geschlossen wurde.
es gibt die möglichkeit, dass es noch läuft, während windows sich runterfährt oder neustartet und dass es über das "X" oben rechts geschlossen wird.

kann man sich überhaupt noch drauf verlassen, dass man noch 'ne datei öffnen/schreiben kann, wenn ein schließbefehl an mein Programm durch "windows herunterfahren" kommt?

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
var F:Textfile
begin
  if("programm wird geschlossen, weil windows sich gerade herunterfährt") then
  begin
    AssignFile(F, 'einstellungen.txt');
    rewrite(F);
    writeln(F,'schnell noch mal die einstellungen sichern');
    closeFile(F);
  end;
end;

edit:
ich seh gerade, dass FormDestroy bei mir aufgerufen wird, wenn ich das programm schließe, aber nicht wenn ich windows abmelde. gibt es da eine alternative zu .onDestroy, die aufgerufen wird, wenn das programm durch Windows beendet wird?

[Luckie]

Forensuche nach: WM_QUERYENDSESSION.

Und wenn du noch was abfangen möchtest, guck dir mal das Ereignis OnCloseQuery deiner Form an.