Problem WMQUERYENDSESSION mit CoolTrayIcon

[Helmi]

Hallo,

ich hatte mal das gleiche Problem und ich hab das so geändert:

Ich habe eine Variable genommen

Code:

private
  Windows_Session_End;

die bei:

Code:

procedure TForm1.Create(Sender: TObject);
begin
  Windows_Session_End := false;
end;

auf false als default-Wert gesetzt wird und bei:

Code:

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

auf true gesetzt wird.

Diese Variable setzt dann das CanClose auf true und schon gehts.