Cool tray Icon

[TitanNano]

woher bekomme ich die richtige Version?

[Luckie]

Bei Google? delphi cooltrayicon download. Jedenfalls würde ich das mal versuchen. Aber hast du jetzt mal geguckt, ob es nicht schon bei Delphi dabei ist?

[TitanNano]

nein es ist nicht dabei.

[haentschman]

heißt das nicht TTrayIcon was bei Delphi dabei ist ? (Reiter: Zusätzlich) Schau mal, ob das da ist. CoolTrayIcon halte ich für eine D5 Fremdkomponente welche man ab TTrayIcon nicht mehr braucht.

[OrNEC]

Muss du aufpassen, falls deine Anwendung im System Tray ist lässt sich das Windows nicht runterfahren.

Hier die Abhilfe:

Delphi-Quellcode:

*****Deutsch*****

Windows sendet die WM_QUERYENDSESSION Nachricht an alle laufenden Anwendungen
und wartet auf deren Antwort.
Wenn irgendeine Anwendungen 0 zurückgibt endet die Session nicht ansonsten
sendet Windows eine WM_ENDSESSION Nachricht an alle Anwendungen.
Jede Anwendung, die darauf mit TRUE antwortet,
kann jederzeit von Windows beendet werden.



Windows NT/2000/XP: When an application returns TRUE for this message,
it receives the WM_ENDSESSION message and it is terminated,
regardless of how the other applications respond to the WM_QUERYENDSESSION message.

Windows 95/98/Me: After all applications return TRUE for this message,
they receive the WM_ENDSESSION and they are terminated.


private
  procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;
end;

Implementation

procedure TForm1.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
  if MessageDlg('Close Windows now/ Windows beenden?',
                            mtConfirmation,
                            [mbYes,mbNo], 0) = mrNo then
      Msg.Result := 0
   else
      Msg.Result := 1;
end;

[Blackheart]

CoolTrayIcon