Zamykanie programu

Hej wiecie jak sprawdzic czy dany program zamykany jest w sposob standardowy czy przez zamkniecie samego Windows ?

Nie wiem czy Ci to coś da ale znalazłem coś takiego co pomoże Ci wyczaić moment zamykania Windowsa

Do sekcji "private" dodaj taką linie:

procedure ClosingWin(var Message: TMessage); message WM_QUERYENDSESSION;

Teraz w sekcji "implemetation" wpisz:

procedure TForm1.ClosingWin(var Message: TMessage);
begin
  if Message.Msg = WM_QUERYENDSESSION then
    begin
// jakaś akcja
    end;
  DefaultHandler(Message)
end;

Jeżeli Twój program będzie w tym momencie jeszcze działał to znaczy że zostanie on zamknięty przez ShutDown Windowsa...