Ich versuch grad einen Dienst zu installieren und zu starten der mir im
TNA ein Symbol anzeigen, bei dem ich mit der rechten maustaste ein popupmenu angezeigt bekomme.
Hab ne Service-Anwendung gestartet, in das Fenster ein CoolTrayIcon reingepackt, ein Popupmenu, das popup mit dem tray verbunden und dann einen eintrag ins popup hinzugefügt der mir eine nachricht anzeigt:
Delphi-Quellcode:
unit uService;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
Menus, CoolTrayIcon;
type
TService1 =
class(TService)
CoolTrayIcon1: TCoolTrayIcon;
PopupMenu1: TPopupMenu;
Ok1: TMenuItem;
procedure Ok1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
function GetServiceController: TServiceController;
override;
{ Public-Deklarationen }
end;
var
Service1: TService1;
implementation
{$R *.DFM}
procedure ServiceController(CtrlCode: DWord);
stdcall;
begin
Service1.Controller(CtrlCode);
end;
function TService1.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;
procedure TService1.Ok1Click(Sender: TObject);
begin
ShowMessage('
Hallo');
end;
end.
Installieren und starten kann ich den service, aber es wird kein trayicon angezeigt. Wieso klappt das nicht? Im Beispiel des CoolTrayIcons klappt es doch auch. Ich finde irgendwie keinen unterschied was das angeht