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]

Nachricht bei Herunterfahren des Systems

Nachricht bei Herunterfahren des Systems

Forumregeln