pascalcoin_daemon.pp 412 B

123456789101112131415161718192021222324
  1. program pascalcoin_daemon;
  2. {$mode objfpc}{$H+}
  3. {$define usecthreads}
  4. {$apptype gui}
  5. uses
  6. {$IFDEF UNIX}{$IFDEF UseCThreads}
  7. cthreads,
  8. {$ENDIF}{$ENDIF}
  9. Interfaces,
  10. sysutils,
  11. Classes, daemonapp,
  12. UCrypto, upcdaemon;
  13. begin
  14. Application.Title:='PascalCoin Daemon application';
  15. RegisterDaemonClass(TPCDaemon);
  16. RegisterDaemonMapper(TPCDaemonMapper);
  17. TCrypto.InitCrypto;
  18. Application.Run;
  19. end.