/components/daemon/lazdaemonapp.pp
http://github.com/graemeg/lazarus · Puppet · 31 lines · 23 code · 8 blank · 0 comment · 1 complexity · 9623f1bebe04d0e8104dba7dbd62d279 MD5 · raw file
- {
- *****************************************************************************
- See the file COPYING.modifiedLGPL.txt, included in this distribution,
- for details about the license.
- *****************************************************************************
- }
- unit lazdaemonapp;
- interface
- uses daemonapp;
- Type
- TLazDaemonApplication = Class(TCustomDaemonApplication)
- Procedure CreateDaemonInstance(Var ADaemon : TCustomDaemon; DaemonDef : TDaemonDef); override;
- end;
- implementation
- uses classes,lresources;
- Procedure TLazDaemonApplication.CreateDaemonInstance(Var ADaemon : TCustomDaemon; DaemonDef : TDaemonDef);
- begin
- ADaemon:=DaemonDef.DaemonClass.Create(Self);
- end;
- Initialization
- RegisterInitComponentHandler(TComponent,@InitLazResourceComponent);
- RegisterDaemonApplicationClass(TLazDaemonApplication)
- end.