1.65

[WinMPQ.git] / CwadLib.bas

diff --git a/CwadLib.bas b/CwadLib.bas
new file mode 100644 (file)
index 0000000..a63a0e6
--- /dev/null
+++ b/CwadLib.bas
@@ -0,0 +1,29 @@
+Attribute VB_Name = "CwadLib"
+Option Explicit
+
+Public Const CWAD_INFO_NUM_FILES       As Long = &H03 ' Number of files in CWAD
+Public Const CWAD_INFO_TYPE            As Long = &H04 ' Is HANDLE a file or a CWAD?
+Public Const CWAD_INFO_SIZE            As Long = &H05 ' Size of CWAD or uncompressed file
+Public Const CWAD_INFO_COMPRESSED_SIZE As Long = &H06 ' Size of compressed file
+Public Const CWAD_INFO_FLAGS           As Long = &H07 ' File flags (compressed, etc.)
+Public Const CWAD_INFO_PARENT          As Long = &H08 ' Handle of CWAD that file is in
+Public Const CWAD_INFO_POSITION        As Long = &H09 ' Position of file pointer in files
+Public Const CWAD_INFO_PRIORITY        As Long = &H0B ' Priority of open CWAD
+
+Public Const CWAD_TYPE_CWAD As Long = &H01
+Public Const CWAD_TYPE_FILE As Long = &H02
+
+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
+Public Const CWAD_SEARCH_ALL_OPEN     As Long = &H01 ' CWadOpenFile will look through all open archives for the file
+
+Declare Function CWadOpenArchive Lib "CwadLib.dll" (ByVal lpFileName As String, ByVal dwPriority As Long, ByRef hCWAD As Long) As Boolean
+Declare Function CWadCloseArchive Lib "CwadLib.dll" (ByVal hCWAD As Long) As Boolean
+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)
+Declare Function CWadOpenFile Lib "CwadLib.dll" (ByVal hCWAD As Long, ByVal lpFileName As String, ByVal dwSearchScope As Long, ByRef hFile As Long) As Boolean
+Declare Function CWadCloseFile Lib "CwadLib.dll" (ByVal hFile As Long) As Boolean
+Declare Function CWadGetFileSize Lib "CwadLib.dll" (ByVal hFile As Long) As Long
+Declare Function CWadGetFileInfo Lib "CwadLib.dll" (ByVal hFile As Long, ByVal dwInfoType As Long) As Long
+Declare Function CWadSetFilePointer Lib "CwadLib.dll" (ByVal hFile As Long, ByVal lDistanceToMove As Long, ByVal dwMoveMethod As Long) As Long
+Declare Function CWadReadFile Lib "CwadLib.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long) As Boolean
+Declare Function CWadSetArchivePriority Lib "CwadLib.dll" (ByVal hCWAD As Long, ByVal dwPriority As Long) As Boolean
+Declare Function CWadFindHeader Lib "CwadLib.dll" (ByVal hFile As Long) As Long