深圳全飞鸿

标题: 服务程序的最基本结构 [打印本页]

作者: e54f 时间: 2019-6-12 14:39
标题: 服务程序的最基本结构
服务程序的最基本结构

项目文件：
program Project1;

uses
  SvcMgr,
  Unit1 in 'Unit1.pas' {Service1: TService};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TService1, Service1);
  Application.Run;
end.

服务类：
unit Unit1;

interface

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

type
  TService1 = class(TService)
  private
{ Private declarations }
  public
function GetServiceController: TServiceController; override;
{ Public declarations }
  end;

var
  Service1: TService1;

implementation

{$R *.DFM}

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

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

end.

欢迎光临深圳全飞鸿 (http://www.nagomes.com/disc/)