Delphi ·þÎñ×Ô¶¯Í˳ö

Delphi ´´½¨µÄ·þÎñ°²×°ºó£¬Ö»ÒªÆô¶¯¹ýÁË»á¶ù¾Í»á×Ô¶¯Í˳ö

/////////////
unit Unit_Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, Unit_FrmMain;
type
  TDelphiService = class(TService)
  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);
private
  { Private declarations }
public
  function GetServiceController: TServiceController; override;
  { Public declarations }
end;


var
  DelphiService: TDelphiService;
  FrmMain: TFrmMain;


implementation


{$R *.DFM}


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


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


procedure TDelphiService.ServiceContinue(Sender: TSe