Hola Gente:
estuve investigando para poder ejecutar un servicio en windows desde delphi 2007. Logre hacerlo siguiendo el siguiente link que recomendaron en este mismo sitio
http://www.devarticles.com/c/a/Delph...e-in-Delphi/1/
El problema que tengo es que el servicio en cuestión se queda en el administrador de tareas de windows unos 10 a 15 segundos y luego se cierra.
Alguno me podría dar alguna ayuda al respecto.
Les dejo el código que ejecuto para que se guíen:
Código Delphi
[-]procedure ServiceController(CtrlCode: DWord); stdcall;
begin
Service1.Controller(CtrlCode);
end;
function TService1.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;
procedure TService1.ServiceExecute(Sender: TService);
begin
Timer1.Enabled := True;
while not Terminated do
ServiceThread.ProcessRequests(True); // wait for termination Timer1.Enabled := False;
end;
procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
Timer1:=TTimer.Create(nil);
Timer1.Interval := 10000;
end;
procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
Timer1.Free;
Timer1:=nil;
end;
procedure TService1.Timer1Timer(Sender: TObject);
const
FileName = 'c:\logdate.txt';
var
F: TextFile;
begin
AssignFile(f,FileName);
if FileExists(FileName) then
Append(f)
else
Rewrite(f); Rewrite (f);
writeln(f,DateTimeToStr(Now));
CloseFile(f);
end;
Desde ya muchisimas gracias.