Entwickler-Ecke
Windows API - Icon im TNA sichtbar?
FriFra - Mo 24.06.02 12:31
Titel: Icon im TNA sichtbar?
Wie bekomme ich heraus, ob ein in den TNA gezeichnetes Icon sichbar ist?
Normalerweise schreibe ich das Icon nur einmal rein und aktualisiere es ggf. später einmal. Wenn nun aber z.B: der Explorer abstürzt oder das Programm als Service läuft (TNA noch nicht geladen) ist und bleibt das Icon verschwunden obwohl man es nach wie vor aktualisieren kann.
Wie bekomme ich nun heraus, ob das Icon sichtbar ist, damit ich es ggf. neu einfügen kann?
FriFra - Mo 24.06.02 14:25
Titel: Ich habe in der Zwischenzeit eine Lösung gefunden
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| var
fwm_TaskbarRestart:cardinal;
procedure Form1.FormCreate(Sender: TObject);
begin
fwm_TaskbarRestart:=RegisterWindowMessage('TaskbarCreated');
end;
procedure Form1.WndProc(var Msg: TMessage);
begin
if (fwm_TaskbarRestart<>0) and (Msg.Msg=fwm_TaskbarRestart) then ShellNotifyIcon(Nim_Add, @IconData);
inherited;
end; |
Code-Tags hinzugefügt. Tino
Moderiert von 
Tino: Code- durch Delphi-Tags ersetzt.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!