Delphi-Projects

1
program PingDown;
2

3
uses
4
  SvcMgr,
5
  MainUnit in 'MainUnit.pas' {PingDownService: TService},
6
  LogUnit in 'LogUnit.pas',
7
  PingUnit in 'PingUnit.pas',
8
  ShutdownUnit in 'ShutdownUnit.pas';
9

10
{$R *.RES}
11

12
begin
13
  // Windows 2003 Server requires StartServiceCtrlDispatcher to be
14
  // called before CoRegisterClassObject, which can be called indirectly
15
  // by Application.Initialize. TServiceApplication.DelayInitialize allows
16
  // Application.Initialize to be called from TService.Main (after
17
  // StartServiceCtrlDispatcher has been called).
18
  //
19
  // Delayed initialization of the Application object may affect
20
  // events which then occur prior to initialization, such as
21
  // TService.OnCreate. It is only recommended if the ServiceApplication
22
  // registers a class object with OLE and is intended for use with
23
  // Windows 2003 Server.
24
  //
25
  // Application.DelayInitialize := True;
26
  //
27
  if not Application.DelayInitialize or Application.Installing then
28
    Application.Initialize;
29
  Application.CreateForm(TPingDownService, PingDownService);
30
  Application.Run;
31
end.
32