!!!!Service application

[aram2r]

Hola tengo un problema..no se como lanzar mi aplicacion como un proceso.....yo lo creo (New/other/service application) hasta ahi bien...y esto me crea un ejecutable.......¿hasta ahi normal o no? nunca he trabajado con servicios...

Ahora q tengo q hacer???? simplemento lo ejecuto y eso deveria funcionar???? pues solo aguanta unos pocos segundos funcionando...

No me deveria de aparecer en los servicios de windows??? No aparece..

Tengo q instalarlo de algun modo???

Tengo q registrarlo en alguna variable del registro?????

Me falta algo en este simple codigo??


Te agradeceria muxo tu ayuda...gracias de todos modos......

Código Delphi [-]
unit servicio;

interface

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

type
  TService1 = class(TService)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure ServiceExecute(Sender: TService);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  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.Timer1Timer(Sender: TObject);
begin
  Beep;
end;

[aram2r]

vale ya lo he descubierto lo q me pasaba solo necesitaba pasarle el parametro install