// Wird Windows beendet, sendet es an alle Anwendungen eine
// Nachricht. Das kann man nutzen, um auf die Beendigung zu
// reagieren.

// Getestet mit D4 unter Win98

unit winend;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
private
procedure WindowsEnd(var aMsg:TWMQueryEndSession);message WM_QUERYENDSESSION;
public
{ Public-Deklarationen}
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WindowsEnd(var aMsg:TWMQueryEndSession);
begin
inherited;
showmessage('Windows wird beendet'); // oder sonstwas
end;

end.