library eCrmHeServiced;

uses
  Windows,
  Vcl.SvcMgr,
  System.SysUtils,
  System.Classes,
  Tocsg.Trace in '..\..\Tocsg.Lib\VCL\Tocsg.Trace.pas',
  Tocsg.Safe in '..\..\Tocsg.Lib\VCL\Tocsg.Safe.pas',
  Tocsg.Path in '..\..\Tocsg.Lib\VCL\Tocsg.Path.pas',
  Tocsg.Files in '..\..\Tocsg.Lib\VCL\Tocsg.Files.pas',
  Tocsg.DateTime in '..\..\Tocsg.Lib\VCL\Tocsg.DateTime.pas',
  Tocsg.Encrypt in '..\..\Tocsg.Lib\VCL\Tocsg.Encrypt.pas',
  Tocsg.Obj in '..\..\Tocsg.Lib\VCL\Tocsg.Obj.pas',
  Tocsg.Thread in '..\..\Tocsg.Lib\VCL\Tocsg.Thread.pas',
  Tocsg.Strings in '..\..\Tocsg.Lib\VCL\Tocsg.Strings.pas',
  Tocsg.Hex in '..\..\Tocsg.Lib\VCL\Tocsg.Hex.pas',
  Tocsg.Json in '..\..\Tocsg.Lib\VCL\Tocsg.Json.pas',

  Tocsg.Win32 in '..\..\Tocsg.Lib\VCL\Tocsg.Win32.pas',
  Tocsg.Process in '..\..\Tocsg.Lib\VCL\Tocsg.Process.pas',
  Tocsg.WTS in '..\..\Tocsg.Lib\VCL\Tocsg.WTS.pas',
  Tocsg.Kernel32 in '..\..\Tocsg.Lib\VCL\Tocsg.Kernel32.pas',
  Tocsg.Shell in '..\..\Tocsg.Lib\VCL\Tocsg.Shell.pas',
  Tocsg.Service in '..\..\Tocsg.Lib\VCL\Tocsg.Service.pas',
  Tocsg.Registry in '..\..\Tocsg.Lib\VCL\Tocsg.Registry.pas',
  Tocsg.FileInfo in '..\..\Tocsg.Lib\VCL\Tocsg.FileInfo.pas',
  Tocsg.WndUtil in '..\..\Tocsg.Lib\VCL\Tocsg.WndUtil.pas',
  Tocsg.WinInfo in '..\..\Tocsg.Lib\VCL\Tocsg.WinInfo.pas',

  superobject in '..\..\Tocsg.Lib\VCL\SuperObject\superobject.pas',
  Tocsg.Exception in '..\..\Tocsg.Lib\VCL\Tocsg.Exception.pas',
  aes_type in '..\..\Tocsg.Lib\VCL\EncLib\AES\aes_type.pas',
  aes_cbc in '..\..\Tocsg.Lib\VCL\EncLib\AES\aes_cbc.pas',
  BTypes in '..\..\Tocsg.Lib\VCL\EncLib\AES\BTypes.pas',
  AES_Base in '..\..\Tocsg.Lib\VCL\EncLib\AES\AES_Base.pas',
  AES_Encr in '..\..\Tocsg.Lib\VCL\EncLib\AES\AES_Encr.pas',
  AES_Decr in '..\..\Tocsg.Lib\VCL\EncLib\AES\AES_Decr.pas',

  Tocsg.Binary in '..\..\Tocsg.Lib\VCL\Tocsg.Binary.pas',
  Tocsg.Hash in '..\..\Tocsg.Lib\VCL\Tocsg.Hash.pas',
  EM.Tocsg.hash in '..\..\Tocsg.Lib\VCL\EncLib\EM.Tocsg.hash.pas',
  EM.Tocsg.Sha1 in '..\..\Tocsg.Lib\VCL\EncLib\EM.Tocsg.Sha1.pas',
  EM.MD5 in '..\..\Tocsg.Lib\VCL\EncLib\EM.MD5.pas',
  EM.CRC32 in '..\..\Tocsg.Lib\VCL\EncLib\EM.CRC32.pas',
  EM.Tocsg.sha256 in '..\..\Tocsg.Lib\VCL\EncLib\EM.Tocsg.sha256.pas',
  EM.GSStorage in '..\..\Tocsg.Lib\VCL\Other\EM.GSStorage.pas',
  EM.WinOSVersion in '..\..\Tocsg.Lib\VCL\Other\EM.WinOSVersion.pas',
  EM.WtsApi32 in '..\..\Tocsg.Lib\VCL\EncLib\EM.WtsApi32.pas',

  ServiceRunDLL in 'ServiceRunDLL.pas',
  SeCrmHeMain in 'SeCrmHeMain.pas' {SvcCrmHe: TService},
  GlobalDefine in '..\LIB_Common\GlobalDefine.pas';

{$R *.res}

exports
  ServiceMain,
  InstallServices_dll,
  UninstallServices_dll;

procedure MyDllProc(Reason: Integer);
begin
  case Reason of
    DLL_THREAD_ATTACH:
    begin

    end;

    DLL_THREAD_DETACH:
    begin

    end;

    DLL_PROCESS_DETACH:
    begin

    end;
  end;
end;

begin
  DLLProc := @MyDllProc;

  if not Application.DelayInitialize then
    Application.Initialize;
  Application.CreateForm(TSvcCrmHe, SvcCrmHe);
  end.