backgroundservice.~dpr

a service application sample wrote with delphi ide tools.

program BackGroundService;

uses
  SvcMgr,
  unit_Service in 'unit_Service.pas' {ATELinkMonitor: TService},
  unit_frmMain in 'unit_frmMain.pas' {Form2};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TATELinkMonitor, ATELinkMonitor);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.