Attribute VB_Name = "GeneralMdl"
Option Explicit
Public Type SECURITY_ATTRIBUTES
  nLength As Long
  lpSecurityDescriptor As Variant
  bInheritHandle As Boolean
End Type

Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long



Public Sub UnlockSupport(DicomKernel As LEADDicomKernel)
   DicomKernel.UnlockSupport L_SUPPORT_DOCUMENT, L_KEY_DOCUMENT
   DicomKernel.UnlockSupport L_SUPPORT_GIFLZW, L_KEY_GIFLZW
   DicomKernel.UnlockSupport L_SUPPORT_TIFLZW, L_KEY_TIFLZW
   DicomKernel.UnlockSupport L_SUPPORT_OCR, L_KEY_OCR
   DicomKernel.UnlockSupport L_SUPPORT_MEDICAL, L_KEY_MEDICAL
   DicomKernel.UnlockSupport L_SUPPORT_MEDICAL_NET, L_KEY_MEDICAL_NET
   DicomKernel.UnlockSupport L_SUPPORT_VECTOR, L_KEY_VECTOR
   DicomKernel.UnlockSupport L_SUPPORT_BARCODES_1D, L_KEY_BARCODES_1D
   DicomKernel.UnlockSupport L_SUPPORT_BARCODES_2D_READ, L_KEY_BARCODES_2D_READ
   DicomKernel.UnlockSupport L_SUPPORT_BARCODES_2D_WRITE, L_KEY_BARCODES_2D_WRITE
   DicomKernel.UnlockSupport L_SUPPORT_BARCODES_PDF_READ, L_KEY_BARCODES_PDF_READ
   DicomKernel.UnlockSupport L_SUPPORT_BARCODES_PDF_WRITE, L_KEY_BARCODES_PDF_WRITE
   DicomKernel.UnlockSupport L_SUPPORT_PDF, L_KEY_PDF
   DicomKernel.UnlockSupport L_SUPPORT_J2K, L_KEY_J2K
   DicomKernel.UnlockSupport L_SUPPORT_CMW, L_KEY_CMW
   DicomKernel.UnlockSupport L_SUPPORT_DICOM, L_KEY_DICOM
   DicomKernel.UnlockSupport L_SUPPORT_EXTGRAY, L_KEY_EXTGRAY
   DicomKernel.UnlockSupport L_SUPPORT_BITONAL, L_KEY_BITONAL
   DicomKernel.UnlockSupport L_SUPPORT_PDF_SAVE, L_KEY_PDF_SAVE
   DicomKernel.UnlockSupport L_SUPPORT_OCR_PDF_OUTPUT, L_KEY_OCR_PDF_OUTPUT
   DicomKernel.UnlockSupport L_SUPPORT_BARCODES_DATAMATRIX_READ, L_KEY_BARCODES_DATAMATRIX_READ
   DicomKernel.UnlockSupport L_SUPPORT_BARCODES_DATAMATRIX_WRITE, L_KEY_BARCODES_DATAMATRIX_WRITE
   DicomKernel.UnlockSupport L_SUPPORT_LTPRO, L_KEY_LTPRO
   DicomKernel.UnlockSupport L_SUPPORT_OCR_ASIAN, L_KEY_OCR_ASIAN
   DicomKernel.UnlockSupport L_SUPPORT_ICR, L_KEY_ICR
   DicomKernel.UnlockSupport L_SUPPORT_OMR, L_KEY_OMR
End Sub