如何在Delphi中创建Windows服务？

unit ServiceUnit;

interface

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

type
  TMyService = class(TService)
    procedure ServiceExecute(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
  MyService: TMyService;

implementation

{$R *.DFM}

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

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

procedure TMyService.ServiceStart(Sender: TService; var Started: Boolean);
begin
  { Place your code here }
  Started := True;
end;

procedure TMyService.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  { Place your code here }
  Stopped := True;
end;

procedure TMyService.ServiceExecute(Sender: TService);
begin
  { Place your code here }
end;

end.

program MyServiceProgram;

uses
  SvcMgr,
  ServiceUnit in 'ServiceUnit.pas' {MyService};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TMyService, MyService);
  Application.Run;
end.

sc create MyService binPath= "C:\path\to\your\service.exe"

sc start MyService

sc stop MyService

sc delete MyService