Art des Shutdown herausfinden

[Zacherl]

Hallo,
in meinem Programm fange ich das Herunterfahren von Windows mit der WM_QueryEndSession ab. Wie kann ich aber feststellen, ob Windows "herunterfährt, neu startet" oder sich jamand abmeldet? Sieht man das am lParam oder wParam der Message?

Florian

[marabu]

Gut geraten...

Zitat:

Zitat von Microsoft

lParam
If this parameter includes ENDSESSION_LOGOFF, the user is logging off. (Note that this parameter is a bit mask. To test for this value, use a bit-wise operation; do not test for equality.)
If this parameter is zero, the system is shutting down.

marabu

[toms]

aus einer google paq:

Delphi-Quellcode:

type 
  TForm1 = class(TForm) 
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
  private 
    procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message 
WM_QUERYENDSESSION; 
    procedure WMEndSession(var Msg: TWMEndSession); message 
WM_ENDSESSION; 
  public 
  end; 


procedure TForm1.WMEndSession(var Msg: TWMEndSession); 
var 
  S1, S2: String; 
begin 
  case Msg.Unused of 
    Integer(ENDSESSION_LOGOFF): S1 := 'Benutzer abmelden'; 
    else S1 := 'Windows beenden'; 
  end; 
  if Msg.EndSession 
  then S2 := ' wird jetzt durchgeführt' 
  else S2 := ' abgebrochen'; 
  ShowMessage(S1 + S2); 
  inherited; 
end; 


procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession); 
var 
  S: String; 
begin 
  case Msg.Unused of 
    Integer(ENDSESSION_LOGOFF): S := 'Benutzer abmelden'; 
    else S := 'Windows beenden'; 
  end; 
  if MessageDlg(S+' okay?', mtConfirmation, [mbYes, mbNo], 0) = mrYes 
  then Msg.Result := 1 
  else Msg.Result := 0; 
end; 


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: 
Boolean); 
begin 
  CanClose := MessageDlg('Anwendung beenden okay?', 
    mtConfirmation, [mbYes, mbNo], 0) = mrYes; 
end; 


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  ShowMessage('Anwendung wird jetzt beendet'); 
end;

[Zacherl]

Danke erst mal!
Nur wird hier nur zwischen Abmelden und Beenden unterschieden. Kann man auch herausfinden, ob der Computer Neu gestartet wird?

Florian

[himitsu]

Zitat:

Zitat von marabu

Zitat:

Zitat von Microsoft

lParam
If this parameter includes ENDSESSION_LOGOFF, the user is logging off. (Note that this parameter is a bit mask. To test for this value, use a bit-wise operation; do not test for equality.)
If this parameter is zero, the system is shutting down.

Fahre deinen Computer doch einfach mal in den verschiedenen Modies runter und schau dir dabei die gesetzten Bits von lParam an ...