CwadLib.bas

   1 Attribute VB_Name = "CwadLib"\r
   2 Option Explicit\r
   3 \r
   4 Public Const CWAD_INFO_NUM_FILES       As Long = &H03 ' Number of files in CWAD\r
   5 Public Const CWAD_INFO_TYPE            As Long = &H04 ' Is HANDLE a file or a CWAD?\r
   6 Public Const CWAD_INFO_SIZE            As Long = &H05 ' Size of CWAD or uncompressed file\r
   7 Public Const CWAD_INFO_COMPRESSED_SIZE As Long = &H06 ' Size of compressed file\r
   8 Public Const CWAD_INFO_FLAGS           As Long = &H07 ' File flags (compressed, etc.)\r
   9 Public Const CWAD_INFO_PARENT          As Long = &H08 ' Handle of CWAD that file is in\r
  10 Public Const CWAD_INFO_POSITION        As Long = &H09 ' Position of file pointer in files\r
  11 Public Const CWAD_INFO_PRIORITY        As Long = &H0B ' Priority of open CWAD\r
  12 \r
  13 Public Const CWAD_TYPE_CWAD As Long = &H01\r
  14 Public Const CWAD_TYPE_FILE As Long = &H02\r
  15 \r
  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\r
  17 Public Const CWAD_SEARCH_ALL_OPEN     As Long = &H01 ' CWadOpenFile will look through all open archives for the file\r
  18 \r
  19 Declare Function CWadOpenArchive Lib "CwadLib.dll" (ByVal lpFileName As String, ByVal dwPriority As Long, ByRef hCWAD As Long) As Boolean\r
  20 Declare Function CWadCloseArchive Lib "CwadLib.dll" (ByVal hCWAD As Long) As Boolean\r
  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)\r
  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\r
  23 Declare Function CWadCloseFile Lib "CwadLib.dll" (ByVal hFile As Long) As Boolean\r
  24 Declare Function CWadGetFileSize Lib "CwadLib.dll" (ByVal hFile As Long) As Long\r
  25 Declare Function CWadGetFileInfo Lib "CwadLib.dll" (ByVal hFile As Long, ByVal dwInfoType As Long) As Long\r
  26 Declare Function CWadSetFilePointer Lib "CwadLib.dll" (ByVal hFile As Long, ByVal lDistanceToMove As Long, ByVal dwMoveMethod As Long) As Long\r
  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\r
  28 Declare Function CWadSetArchivePriority Lib "CwadLib.dll" (ByVal hCWAD As Long, ByVal dwPriority As Long) As Boolean\r
  29 Declare Function CWadFindHeader Lib "CwadLib.dll" (ByVal hFile As Long) As Long\r