...herausfinden, ob Windows heruntergefahren wird?

Autor: Thomas Stutz

Kategorie: System

{
  To detect a Windows Shutdown, you must trap the
  WM_EndSession message.
  Declare a message handling procedure in your Form's Private section.

  Um herauszufinden, ob Windows heruntergefahren wird, muss
  die WM_EndSession abgefangen werden.
}


type
  
TForm1 = class(TForm)
  private
    procedure 
WMEndSession(var Msg: TWMEndSession); message WM_ENDSESSION;
  public
  end
;

implementation

{$R *.DFM}

procedure TForm1.WMEndSession(var Msg: TWMEndSession);
begin
  if 
Msg.EndSession = True then
    
ShowMessage('Windows is shutting down!');
  inherited;
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base