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
public
function GetServiceController: TServiceController; override;
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;