text: (*
    Copyright 2016, MARS-Curiosity - REST Library
  
    Home: https://github.com/andrea-magni/MARS
  *)
  program ToDoListService;
  
  {$I MARS.inc}
  
  uses
  {$ifdef DelphiXE3_UP}
    Vcl.SvcMgr,
  {$else}
    SvcMgr,
  {$endif}
  
    Server.Service in 'Server.Service.pas' {ServerService: TService},
    Server.Ignition in 'Server.Ignition.pas',
    Server.Resources in 'Server.Resources.pas',
    Server.WebModule in 'Server.WebModule.pas' {ServerWebModule: TWebModule};
  
  {$R *.RES}
  
  begin
    // Windows 2003 Server requires StartServiceCtrlDispatcher to be
    // called before CoRegisterClassObject, which can be called indirectly
    // by Application.Initialize. TServiceApplication.DelayInitialize allows
    // Application.Initialize to be called from TService.Main (after
    // StartServiceCtrlDispatcher has been called).
    //
    // Delayed initialization of the Application object may affect
    // events which then occur prior to initialization, such as
    // TService.OnCreate. It is only recommended if the ServiceApplication
    // registers a class object with OLE and is intended for use with
    // Windows 2003 Server.
    //
    // Application.DelayInitialize := True;
    //
    if not Application.DelayInitialize or Application.Installing then
      Application.Initialize;
    Application.CreateForm(TServerService, ServerService);
    Application.Run;
  end.
  