delphi linux服务程序

program MyLinuxService;

uses
  System.SysUtils, System.Classes, System.DateUtils, System.SyncObjs;

type
  TMyService = class(TService)
  private
    FTimer: TTimer;
    procedure Timer(Sender: TObject);
  protected
    procedure ServiceStart(Sender: TService; var Started: Boolean); override;
    procedure ServiceStop(Sender: TService; var Stopped: Boolean); override;
  public
    function GetServiceController: TServiceController; override;
  end;

procedure TMyService.Timer(Sender: TObject);
begin
  WriteLn('Service is running at ', DateTimeToStr(Now));
end;

procedure TMyService.ServiceStart(Sender: TService; var Started: Boolean);
begin
  FTimer := TTimer.Create(nil);
  FTimer.Interval := 1000;
  FTimer.OnTimer := Timer;
  FTimer.Enabled := True;
  Started := True;
end;

procedure TMyService.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  FTimer.Enabled := False;
  FTimer.Free;
  Stopped := True;
end;

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

var
  MyService: TMyService;
begin
  if not ServiceIsInteractive then
  begin
    MyService := TMyService.Create(nil);
    ServiceBootstrap(MyService);
  end
  else
    WriteLn('This service cannot be run in interactive mode.');
end.