/components/daemon/lazdaemonapp.pp

 1{
 2 *****************************************************************************
 3  See the file COPYING.modifiedLGPL.txt, included in this distribution,
 4  for details about the license.
 5 *****************************************************************************
 6}
 7unit lazdaemonapp;
 8
 9interface
10
11uses daemonapp;
12
13Type
14  TLazDaemonApplication = Class(TCustomDaemonApplication)
15    Procedure CreateDaemonInstance(Var ADaemon : TCustomDaemon; DaemonDef : TDaemonDef); override;
16  end;
17
18implementation
19
20uses classes,lresources;
21
22Procedure TLazDaemonApplication.CreateDaemonInstance(Var ADaemon : TCustomDaemon; DaemonDef : TDaemonDef); 
23
24begin
25  ADaemon:=DaemonDef.DaemonClass.Create(Self);
26end;
27
28Initialization
29  RegisterInitComponentHandler(TComponent,@InitLazResourceComponent);
30  RegisterDaemonApplicationClass(TLazDaemonApplication)
31end.