home *** CD-ROM | disk | FTP | other *** search
/ BUG 6 / BUGCD1997_09.BIN / UTIL / ADDZIP / ADDZIP.EXE / VB / AZIP16.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-06-01  |  6.3 KB  |  134 lines
  1. ' Visual Basic declares file for
  2. '
  3. '     azip16.dll    addZIP 16-bit compression library
  4. '
  5. ' Copyright ⌐ 1996,1997 Stephen Darlington. All rights reserved.
  6. ' Written by Stephen Darlington                  June 1997
  7.  
  8. ' Function declarations
  9. Declare Function addZIP Lib "azip16.dll" () As Integer
  10. Declare Function addZIP_ArchiveName Lib "azip16.dll" (ByVal lpStr As String) As Integer
  11. Declare Function addZIP_ClearAttributes Lib "azip16.dll" (ByVal Int16 As Integer) As Integer
  12. Declare Function addZIP_Comment Lib "azip16.dll" (ByVal lpStr As String) As Integer
  13. Declare Function addZIP_Delete Lib "azip16.dll" (ByVal Int16 As Integer) As Integer
  14. Declare Function addZIP_DeleteComment Lib "azip16.dll" (ByVal Int16 As Integer) As Integer
  15. Declare Function addZIP_DisplayComment Lib "azip16.dll" (ByVal Int16 As Integer) As Integer
  16. Declare Function addZIP_Encrypt Lib "azip16.dll" (ByVal lpStr As String) As Integer
  17. Declare Function addZIP_Exclude Lib "azip16.dll" (ByVal lpStr As String) As Integer
  18. Declare Function addZIP_ExcludeListFile Lib "azip16.dll" (ByVal lpStr As String) As Integer
  19. Declare Function addZIP_GetLastError Lib "azip16.dll" () As Integer
  20. Declare Function addZIP_GetLastWarning Lib "azip16.dll" () As Integer
  21. Declare Function addZIP_Include Lib "azip16.dll" (ByVal lpStr As String) As Integer
  22. Declare Function addZIP_IncludeArchive Lib "azip16.dll" (ByVal iFlag As Integer) As Integer
  23. Declare Function addZIP_IncludeDirectoryEntries Lib "azip16.dll" (ByVal flag As Integer) As Integer
  24. Declare Function addZIP_IncludeFilesNewer Lib "azip16.dll" (ByVal DateVal As String) As Integer
  25. Declare Function addZIP_IncludeFilesOlder Lib "azip16.dll" (ByVal DateVal As String) As Integer
  26. Declare Function addZIP_IncludeHidden Lib "azip16.dll" (ByVal iFlag As Integer) As Integer
  27. Declare Function addZIP_IncludeListFile Lib "azip16.dll" (ByVal lpStr As String) As Integer
  28. Declare Function addZIP_IncludeReadOnly Lib "azip16.dll" (ByVal iFlag As Integer) As Integer
  29. Declare Function addZIP_IncludeSystem Lib "azip16.dll" (ByVal iFlag As Integer) As Integer
  30. Declare Sub addZIP_Initialise Lib "azip16.dll" ()
  31. Declare Function addZIP_InstallCallback Lib "azip16.dll" (ByVal cbFunction As Long) As Integer
  32. Declare Function addZIP_Overwrite Lib "azip16.dll" (ByVal Int16 As Integer) As Integer
  33. Declare Function addZIP_Recurse Lib "azip16.dll" (ByVal Int16 As Integer) As Integer
  34. Declare Function addZIP_Register Lib "azip16.dll" (ByVal lpStr As String, ByVal Uint32 As Long) As Integer
  35. Declare Function addZIP_SaveAttributes Lib "azip16.dll" (ByVal Int16 As Integer) As Integer
  36. Declare Function addZIP_SaveStructure Lib "azip16.dll" (ByVal Int16 As Integer) As Integer
  37. Declare Function addZIP_SetArchiveDate Lib "azip16.dll" (ByVal Int16 As Integer) As Integer
  38. Declare Function addZIP_SetCompressionLevel Lib "azip16.dll" (ByVal Int16 As Integer) As Integer
  39. Declare Function addZIP_SetParentWindowHandle Lib "azip16.dll" (ByVal Hwnd As Integer) As Integer
  40. Declare Function addZIP_SetTempDrive Lib "azip16.dll" (ByVal lpStr As String) As Integer
  41. Declare Function addZIP_SetWindowHandle Lib "azip16.dll" (ByVal Hwnd As Integer) As Integer
  42. Declare Function addZIP_Span Lib "azip16.dll" (ByVal Int16 As Integer) As Integer
  43. Declare Function addZIP_Store Lib "azip16.dll" (ByVal lpStr As String) As Integer
  44. Declare Function addZIP_UseLFN Lib "azip16.dll" (ByVal Int16 As Integer) As Integer
  45. Declare Function addZIP_View Lib "azip16.dll" (ByVal Int16 As Integer) As Integer
  46.  
  47. '  constants for addZIP_SetCompressionLevel(...)
  48. Global Const azCOMPRESSION_MAXIMUM = &H3
  49. Global Const azCOMPRESSION_MINIMUM = &H1
  50. Global Const azCOMPRESSION_NONE = &H0
  51. Global Const azCOMPRESSION_NORMAL = &H2
  52.  
  53. ' constants for addZIP_SaveStructure(...)
  54. Global Const azSTRUCTURE_ABSOLUTE = &H2
  55. Global Const azSTRUCTURE_NONE = &H0
  56. Global Const azSTRUCTURE_RELATIVE = &H1
  57.  
  58. ' constants for addZIP_Overwrite(...)
  59. Global Const azOVERWRITE_ALL = &HB
  60. Global Const azOVERWRITE_NONE = &HC
  61. Global Const azOVERWRITE_QUERY = &HA
  62.  
  63. ' constants for addZIP_SetArchiveDate()
  64. Global Const DATE_NEWEST = &H3
  65. Global Const DATE_OLDEST = &H2
  66. Global Const DATE_ORIGINAL = &H0
  67. Global Const DATE_TODAY = &H1
  68.  
  69. ' constants for addZIP_IncludeXXX attribute functions
  70. Global Const azNEVER = &H0       ' files must never have this attribute set
  71. Global Const azALWAYS = &HFF ' files may or may not have this attribute set
  72. Global Const azYES = &H1         ' files must always have this attribute set
  73.  
  74. '  constants for addZIP_ClearAttributes(...)
  75. Global Const azATTR_NONE = 0
  76. Global Const azATTR_READONLY = 1
  77. Global Const azATTR_HIDDEN = 2
  78. Global Const azATTR_SYSTEM = 4
  79. Global Const azATTR_ARCHIVE = 32
  80. Global Const azATTR_ALL = 39
  81.  
  82. ' constants used in messages to identify library
  83. Global Const azLIBRARY_ADDZIP = 0
  84.  
  85. ' 'messages' used to provide information to the calling program
  86. Global Const AM_SEARCHING = &HA
  87. Global Const AM_ZIPCOMMENT = &HB
  88. Global Const AM_ZIPPING = &HC
  89. Global Const AM_ZIPPED = &HD
  90. Global Const AM_UNZIPPING = &HE
  91. Global Const AM_UNZIPPED = &HF
  92. Global Const AM_TESTING = &H10
  93. Global Const AM_TESTED = &H11
  94. Global Const AM_DELETING = &H12
  95. Global Const AM_DELETED = &H13
  96. Global Const AM_DISKCHANGE = &H14
  97. Global Const AM_VIEW = &H15
  98. Global Const AM_ERROR = &H16
  99. Global Const AM_WARNING = &H17
  100. Global Const AM_QUERYOVERWRITE = &H18
  101. Global Const AM_COPYING = &H19
  102. Global Const AM_COPIED = &H1A
  103. Global Const AM_ABORT = &HFF
  104.  
  105. ' Constants for whether file is encrypted or not in AM_VIEW
  106. Global Const azFT_ENCRYPTED = &H1
  107. Global Const azFT_NOT_ENCRYPTED = &H0
  108.  
  109. ' Constants for whether file is text or binary in AM_VIEW
  110. Global Const azFT_BINARY = &H1
  111. Global Const azFT_TEXT = &H0
  112.  
  113. ' Constants for compression method in AM_VIEW
  114. Global Const azCM_DEFLATED_FAST = &H52
  115. Global Const azCM_DEFLATED_MAXIMUM = &H51
  116. Global Const azCM_DEFLATED_NORMAL = &H50
  117. Global Const azCM_DEFLATED_SUPERFAST = &H53
  118. Global Const azCM_IMPLODED = &H3C
  119. Global Const azCM_NONE = &H0
  120. Global Const azCM_REDUCED_1 = &H14
  121. Global Const azCM_REDUCED_2 = &H1E
  122. Global Const azCM_REDUCED_3 = &H28
  123. Global Const azCM_REDUCED_4 = &H32
  124. Global Const azCM_SHRUNK = &HA
  125. Global Const azCM_TOKENISED = &H46
  126. Global Const azCM_UNKNOWN = &HFF
  127.  
  128. ' Constants used in returning from a AM_QUERYOVERWRITE message
  129. Global Const azOW_NO = &H2
  130. Global Const azOW_NO_TO_ALL = &H3
  131. Global Const azOW_YES = &H0
  132. Global Const azOW_YES_TO_ALL = &H1
  133.  
  134.