PageRenderTime 11ms CodeModel.GetById 1ms app.highlight 7ms RepoModel.GetById 2ms app.codeStats 0ms

/components/daemon/lazdaemonapp.pp

http://github.com/graemeg/lazarus
Pascal | 31 lines | 17 code | 8 blank | 6 comment | 0 complexity | 9623f1bebe04d0e8104dba7dbd62d279 MD5 | raw file
 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.