library DrmAssistor;


uses
  System.SysUtils,
  Winapi.Windows,
  System.Classes,
  DrmAstHook in 'DrmAstHook.pas';

{$R *.res}

var
  DrmAstHook: TDrmAstHook = nil;

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

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

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