/components/daemon/lazdaemonapp.pp

http://github.com/graemeg/lazarus · Puppet · 31 lines · 23 code · 8 blank · 0 comment · 1 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. }
  7. unit lazdaemonapp;
  8. interface
  9. uses daemonapp;
  10. Type
  11. TLazDaemonApplication = Class(TCustomDaemonApplication)
  12. Procedure CreateDaemonInstance(Var ADaemon : TCustomDaemon; DaemonDef : TDaemonDef); override;
  13. end;
  14. implementation
  15. uses classes,lresources;
  16. Procedure TLazDaemonApplication.CreateDaemonInstance(Var ADaemon : TCustomDaemon; DaemonDef : TDaemonDef);
  17. begin
  18. ADaemon:=DaemonDef.DaemonClass.Create(Self);
  19. end;
  20. Initialization
  21. RegisterInitComponentHandler(TComponent,@InitLazResourceComponent);
  22. RegisterDaemonApplicationClass(TLazDaemonApplication)
  23. end.