Servicios en Delphi

[[Delphius]]

En forma simple, se crea un servicio de la siguiente forma:

1. Vas a File -> New -> Service

Con esto se armará una unidad que contiene:

Código Delphi [-]
unit Unit1;

interface

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

type
  TService1 = class(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;

end.

Entonces tu debes programar los eventos que se deba realizar tu servicio. Algo por el estilo:

procedure HazAlgo(Sender: TService);

Tengo entendido que un servicio no tiene un aspecto visual. Por lo que para implementarle "elementos", como por ejemplo un timer. Hay que crearlo por código. Lo curioso es que a mi me aparece una especie de formulario en blanco en donde puedo incorporar elementos (uso Delphi 6).

Más no puedo decirte pues es lo único que se. Nunca me puse a investigar lo de servicios.Ppuedes darle una miradita a la clase TService. Y si tienes más dudas, puedes buscar en estos foros. Se que se ha hablado antes sobre esto.

Espero haberte hechado un dedo por lo menos (porque muy dificil que haya llegado a darte una mano).
Y si he dicho alguna tontería... pues... como dije estoy mas que verde en el tema, me lo dicen.

Saludos,