library TocsgDRM;


uses
  System.SysUtils,
  Winapi.Windows,
  System.Classes,
  TgDrmHook in 'TgDrmHook.pas',
  GlobalDefine in '..\LIB_Common\GlobalDefine.pas',
  Tocsg.DRM.Encrypt in '..\LIB_Common\Tocsg.DRM.Encrypt.pas';

{$R *.res}

var
  TgDrmHook: TTgDrmHook = nil;

procedure DLLEntryPoint(dwReason: DWORD);
begin
  case dwReason of
    DLL_PROCESS_ATTACH :
    begin
      TgDrmHook := TTgDrmHook.Create;
    end;

    DLL_PROCESS_DETACH :
    begin
      try
        if Assigned(TgDrmHook) then
          FreeAndNil(TgDrmHook);
      except
        //
      end;
    end;
  end;
end;

begin
  DllProc := @DLLEntryPoint;
  DLLEntryPoint(DLL_PROCESS_ATTACH);
end.