wie installierten Dienst starten?

[Susanne]

Hallo,

Ich möchte gerne einen Dienst entwickeln. Bis jetzt habe ich folgendes geschafft:
Das ist ein leerer Dienst und ich kann in installieren und deinstallieren, aber der Dienst wird nicht gestartet, wie stelle ich das an?

Delphi-Quellcode:

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
  TTimeManager = class(TService)
  private
    {Private-Deklarationen}
  public
    function GetServiceController: TServiceController; override;
    {Public-Deklarationen}
  end;

var
  TimeManager: TTimeManager;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
   begin
      TimeManager.Controller(CtrlCode);
   end;

function TTimeManager.GetServiceController: TServiceController;
   begin
      Result := ServiceController;
   end;

end.

Vielen Dank schon mal für eure Hilfe.