pascalcoin_daemon.pp 383 B

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