Fórum Serviço no Windows XP -gt; Não esta iniciando #330187

unit uServicoGravaArquivo;

interface

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

type
  TServiceThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
end;


type
  TServicoGravaArquivo = class(TService)
  procedure ServiceContinue(Sender: TService; var Continued: Boolean);
  procedure ServicePause(Sender: TService; var Paused: Boolean);
  procedure ServiceStart(Sender: TService; var Started: Boolean);
  procedure ServiceStop(Sender: TService; var Stopped: Boolean);

  private
    { Private declarations }
    ServiceThread : TServiceThread;
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  ServicoGravaArquivo: TServicoGravaArquivo;

implementation

{$R *.DFM}

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

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


{ TServiceThread } 

procedure TServiceThread.Execute; 
var 
  E: TEvent; 
  ArqTXT: TextFile; 
  Arq: String;

begin

  E := TEvent.Create(nil, False, False, ´´);

  while not (Terminated) do begin 
    E.WaitFor(1000); // 1 segundo

    Arq  := ´c:\log.txt´;
    AssignFile(ArqTXT, Arq);
    Writeln( ArqTXT, timetostr(now) );
    CloseFile(ArqTXT);
  end;

  E.Free;

end;



{ TService1 }

procedure TServicoGravaArquivo.ServiceContinue(Sender: TService; var Continued: Boolean);
begin
  ServiceThread.Resume;
  Continued := True;
end;

procedure TServicoGravaArquivo.ServicePause(Sender: TService; var Paused: Boolean);
begin
  ServiceThread.Suspend;
  Paused := True;
end;

procedure TServicoGravaArquivo.ServiceStart(Sender: TService; var Started: Boolean);
begin
  ServiceThread := TServiceThread.Create(False);
  Started := True;
end;

procedure TServicoGravaArquivo.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  ServiceThread.Terminate;
  Stopped := True;
end;


end.