Projeto de Serviço do Windows

Outro método de implantação para ambientes de produção é Windows Service. Ele cria um projeto padrão Delphi Windows Service com algumas modificações para permitir a criação de um uniGUI ServiceModuleOs projetos de serviço geram executáveis padrão de Windows Service que podem ser instalados como qualquer Windows Service regular. Um Windows Service é iniciado automaticamente pelo Windows e está sempre disponível enquanto o Windows estiver em execução. Isso proporciona um alto nível de disponibilidade para a aplicação uniGUI. Além disso, veja Deployment Options.

Project1.dpr

program Project1;

uses
  SvcMgr,
  ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule},
  MainModule in 'MainModule.pas' {UniMainModule: TUniGUIMainModule},
  Main in 'Main.pas' {MainForm: TUniForm},
  ServiceModule in 'ServiceModule.pas' {UniServiceModule: TUniGUIService};

{$R *.res}

begin
  if not Application.DelayInitialize or Application.Installing then
    Application.Initialize;
  Application.CreateForm(TUniServiceModule, UniServiceModule);
  Application.Run;
end.