unit_service.pas

a service application sample wrote with delphi ide tools.

unit unit_Service;

interface

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

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

var
  ATELinkMonitor: TATELinkMonitor;

implementation

uses unit_frmMain;

{$R *.DFM}

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

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

procedure TATELinkMonitor.ServiceContinue(Sender: TService;
var Continued: Boolean);
begin
while not Terminated do
begin
Sleep(10);
ServiceThread.ProcessRequests(False);
end;
end;

procedure TATELinkMonitor.ServiceExecute(Sender: TService);
begin
while not Terminated do
begin
Sleep(10);
ServiceThread.ProcessRequests(False);
end;
end;

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

procedure TATELinkMonitor.ServiceShutdown(Sender: TService);
begin
gbCanClose := true;
FrmMain.Free;
Status := csStopped;
ReportStatus();
end;

procedure TATELinkMonitor.ServiceStart(Sender: TService;
var Started: Boolean);
begin
Started := True;
Svcmgr.Application.CreateForm(TFrmMain, FrmMain);
gbCanClose := False;
FrmMain.Hide;
end;

procedure TATELinkMonitor.ServiceStop(Sender: TService;
var Stopped: Boolean);
begin
Stopped := True;
gbCanClose := True;
FrmMain.Free;
end;

end.