unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, SvcMgr, uCheckState;

type
  TService2 = class(TService)
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
    procedure ServiceExecute(Sender: TService);
    procedure ServiceContinue(Sender: TService; var Continued: Boolean);
    procedure ServicePause(Sender: TService; var Paused: Boolean);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  Service2: TService2;

implementation

{$R *.DFM}

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

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

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

procedure TService2.ServiceExecute(Sender: TService);
begin
  while not Terminated do
  begin
    ServiceThread.ProcessRequests(true);
    Sleep(1);
  end;
end;

procedure TService2.ServicePause(Sender: TService; var Paused: Boolean);
begin
  Paused := true;
end;

procedure TService2.ServiceStart(Sender: TService; var Started: Boolean);
begin
  Started := True;
end;

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

end.