Main.FormClose bliver omgået når brugeren logger ud af computeren

Har ikke kikket nærmere på det men måske er det denne WM message du skal bruge http://msdn.microsoft.com/en-us/library/windows/desktop/aa376890(v=vs.85).aspx

Giver #1 ret. Jeg bruger selv den message i en nogenlunde tilsvarende situation.

Jeg er ikke den store haj i brugen af WM messages, kunne jeg mon lokke et eksempel ud af jer?

(igen referencer til de nævnte messages)

http://msdn.microsoft.com/en-us/library/windows/desktop/aa376890(v=vs.85).aspx

http://msdn.microsoft.com/en-us/library/windows/desktop/aa376889(v=vs.85).aspx

interface

  TfrmMain = class(TForm)
    procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;

    procedure WMEndSession(var Msg: TWMEndSession); message WM_ENDSESSION;
    ..
  end;

implementation

procedure TfrmMain.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
  if MessageDlg('Afslut program og luk windows?',mtConfirmation,[mbYes,mbNo], 0) = mrNo then
    Msg.Result := 0
  else begin
    Msg.Result := 1;
    ModalResult := mrOK; // Kan ikke huske om den har nogen betydning, tror det ikke
  end;
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // Luk de ting du gerne vil lukke ordentligt ned.
end;

Ja, en gammel sag :)

Prøvede for noget tid siden ovenstående, men WMQueryEndSession blev aldrig kaldt af Delphi. WMEndSession er jeg lidt uklar på hvad jeg skal bruge til?

Da der nok ikke er tid til en dialogboks i forbindelse med computeren bliver lukket ned (når folk bare logger ud), kan jeg så bare smide et kald til FormClose i WMQueryEndSession og så checke på et flag i FormClose, så ikke den bliver kørt to gange hvis man lukker programmet rigtigt?