Nachricht bei Herunterfahren des Systems

[Luckie]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    procedure WMQUERYENDSESSION(var msg: TMessage); message WM_QUERYENDSESSION;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMQUERYENDSESSION(var msg: TMessage);
begin
  ShowMessage('Windows wird beendet.');
  msg.Result := Integer(TRUE);  //  TRUE: darf weiter runterfahren; FALSE: nicht runterfahren
end;

[edit=flomei]Wir "räumen auf", daher Titel geändert... Mfg, flomei[/edit]