Tray-Icon nach Service-Start

[BloodySmartie]

Hallo liebe Mitglieder!

Ich schreibe gerade einen Windows Service, was ja an sich gar nicht mal so kniffelig ist. Nun möchte ich gern, dass während seiner Laufzeit ein Icon in der Taskleiste angezeigt wird, aber ich bekomme es nicht hin. Das Icon wird beim Installieren des Service angezeigt, nicht aber während seiner eigentlichen Laufzeit als Service.

Mein Versuch sieht bisher folgendermaßen aus:

Delphi-Quellcode:

// ti = TTrayIcon, Child vom Standard-Serviceobjekt "TService1"
procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
ti.Visible:=true;
end;

procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
ti.Visible:=false;
end;