uciaservicetools.~pas

一個強大的定時服務程序

unit uCiaServiceTools;

interface

uses
   SysUtils, Classes, Windows, SvcMgr, WinSvc;

type
  TCiaService = class(TService)
  protected
    procedure Start(Sender: TService; var Started: boolean);
    procedure Stop(Sender: TService; var Stopped: boolean);
    procedure Execute(Sender: TService);
  public
    function GetServiceController: TServiceController; override;
    constructor CreateNew(AOwner: TComponent; Dummy: integer = 0); override;
    procedure CreateForm(InstanceClass: TComponentClass; var Reference);
    procedure Run;
  end;

function CiaStartService(DisplayName: string): Boolean;
function CiaIsService: boolean;

var
  CiaService: TCiaService;

implementation

var
   FIsService: boolean;
   FServiceName: string;
   FDisplayName: string;
   Loger:TEventLogger;

//------------------------------------------------------------------------------
//---- TCiaService -------------------------------------------------------------
//------------------------------------------------------------------------------
procedure ServiceController(CtrlCode: dword); stdcall;
begin
   CiaService.Controller(CtrlCode);
end;

//------------------------------------------------------------------------------
function TCiaService.GetServiceController: TServiceController;
begin
   result := ServiceController;
end;

//------------------------------------------------------------------------------
procedure TCiaService.CreateForm(InstanceClass: TComponentClass; var Reference);
begin
   SvcMgr.Application.CreateForm(InstanceClass, Reference);
   Loger.LogMessage('承