CwadLib.bas

   1 Attribute VB_Name = "CwadLib"
   2 Option Explicit
   3
   4 Public Const CWAD_INFO_NUM_FILES       As Long = &H03 ' Number of files in CWAD
   5 Public Const CWAD_INFO_TYPE            As Long = &H04 ' Is HANDLE a file or a CWAD?
   6 Public Const CWAD_INFO_SIZE            As Long = &H05 ' Size of CWAD or uncompressed file
   7 Public Const CWAD_INFO_COMPRESSED_SIZE As Long = &H06 ' Size of compressed file
   8 Public Const CWAD_INFO_FLAGS           As Long = &H07 ' File flags (compressed, etc.)
   9 Public Const CWAD_INFO_PARENT          As Long = &H08 ' Handle of CWAD that file is in
  10 Public Const CWAD_INFO_POSITION        As Long = &H09 ' Position of file pointer in files
  11 Public Const CWAD_INFO_PRIORITY        As Long = &H0B ' Priority of open CWAD
  12
  13 Public Const CWAD_TYPE_CWAD As Long = &H01
  14 Public Const CWAD_TYPE_FILE As Long = &H02
  15
  16 Public Const CWAD_SEARCH_CURRENT_ONLY As Long = &H00 ' Used with CWadOpenFile; only the archive with the handle specified will be searched for the file
  17 Public Const CWAD_SEARCH_ALL_OPEN     As Long = &H01 ' CWadOpenFile will look through all open archives for the file
  18
  19 Declare Function CWadOpenArchive Lib "CwadLib.dll" (ByVal lpFileName As String, ByVal dwPriority As Long, ByRef hCWAD As Long) As Boolean
  20 Declare Function CWadCloseArchive Lib "CwadLib.dll" (ByVal hCWAD As Long) As Boolean
  21 Declare Function CWadListFiles Lib "CwadLib.dll" (ByVal hCWAD As Long, ByVal lpBuffer As String, ByVal dwBufferLength As Long) As Long ' Returns required buffer size.  Strings are in multi string form. (null-terminated strings with an extra null after the last string)
  22 Declare Function CWadOpenFile Lib "CwadLib.dll" (ByVal hCWAD As Long, ByVal lpFileName As String, ByVal dwSearchScope As Long, ByRef hFile As Long) As Boolean
  23 Declare Function CWadCloseFile Lib "CwadLib.dll" (ByVal hFile As Long) As Boolean
  24 Declare Function CWadGetFileSize Lib "CwadLib.dll" (ByVal hFile As Long) As Long
  25 Declare Function CWadGetFileInfo Lib "CwadLib.dll" (ByVal hFile As Long, ByVal dwInfoType As Long) As Long
  26 Declare Function CWadSetFilePointer Lib "CwadLib.dll" (ByVal hFile As Long, ByVal lDistanceToMove As Long, ByVal dwMoveMethod As Long) As Long
  27 Declare Function CWadReadFile Lib "CwadLib.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long) As Boolean
  28 Declare Function CWadSetArchivePriority Lib "CwadLib.dll" (ByVal hCWAD As Long, ByVal dwPriority As Long) As Boolean
  29 Declare Function CWadFindHeader Lib "CwadLib.dll" (ByVal hFile As Long) As Long