Icon im TNA sichtbar?

FriFra · Verfasst: Mo 24.06.02 12:31

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

markieren

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.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme