home *** CD-ROM | disk | FTP | other *** search
/ BUG 6 / BUGCD1997_09.BIN / UTIL / ADDZIP / ADDZIP.EXE / VB / AZIP32.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-06-01  |  6.4 KB  |  133 lines
  1. ' Visual Basic declares file for
  2. '
  3. '     azip32.dll    addZIP 32-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 "azip32.dll"() As Integer
  10. Declare Function addZIP_ArchiveName Lib "azip32.dll"( ByVal lpStr As String) As Integer
  11. Declare Function addZIP_ClearAttributes Lib "azip32.dll"( ByVal Int16 As Integer) As Integer
  12. Declare Function addZIP_Comment Lib "azip32.dll"( ByVal lpStr As String) As Integer
  13. Declare Function addZIP_Delete Lib "azip32.dll"( ByVal Int16 As Integer) As Integer
  14. Declare Function addZIP_DeleteComment Lib "azip32.dll"( ByVal Int16 As Integer) As Integer
  15. Declare Function addZIP_DisplayComment Lib "azip32.dll"( ByVal Int16 As Integer) As Integer
  16. Declare Function addZIP_Encrypt Lib "azip32.dll"( ByVal lpStr As String) As Integer
  17. Declare Function addZIP_Exclude Lib "azip32.dll"( ByVal lpStr As String) As Integer
  18. Declare Function addZIP_ExcludeListFile Lib "azip32.dll"( ByVal lpStr As String) As Integer
  19. Declare Function addZIP_GetLastError Lib "azip32.dll"() As Integer
  20. Declare Function addZIP_GetLastWarning Lib "azip32.dll"() As Integer
  21. Declare Function addZIP_Include Lib "azip32.dll"( ByVal lpStr As String) As Integer
  22. Declare Function addZIP_IncludeArchive Lib "azip32.dll"( ByVal iFlag As Integer) As Integer
  23. Declare Function addZIP_IncludeDirectoryEntries Lib "azip32.dll"( ByVal flag As Integer) As Integer
  24. Declare Function addZIP_IncludeFilesNewer Lib "azip32.dll"( ByVal DateVal As String) As Integer
  25. Declare Function addZIP_IncludeFilesOlder Lib "azip32.dll"( ByVal DateVal As String) As Integer
  26. Declare Function addZIP_IncludeHidden Lib "azip32.dll"( ByVal iFlag As Integer) As Integer
  27. Declare Function addZIP_IncludeListFile Lib "azip32.dll"( ByVal lpStr As String) As Integer
  28. Declare Function addZIP_IncludeReadOnly Lib "azip32.dll"( ByVal iFlag As Integer) As Integer
  29. Declare Function addZIP_IncludeSystem Lib "azip32.dll"( ByVal iFlag As Integer) As Integer
  30. Declare Sub addZIP_Initialise Lib "azip32.dll" ()
  31. Declare Function addZIP_InstallCallback Lib "azip32.dll"( ByVal cbFunction As Long) As Integer
  32. Declare Function addZIP_Overwrite Lib "azip32.dll"( ByVal Int16 As Integer) As Integer
  33. Declare Function addZIP_Recurse Lib "azip32.dll"( ByVal Int16 As Integer) As Integer
  34. Declare Function addZIP_Register Lib "azip32.dll"( ByVal lpStr As String, ByVal Uint32 As Long) As Integer
  35. Declare Function addZIP_SaveAttributes Lib "azip32.dll"( ByVal Int16 As Integer) As Integer
  36. Declare Function addZIP_SaveStructure Lib "azip32.dll"( ByVal Int16 As Integer) As Integer
  37. Declare Function addZIP_SetArchiveDate Lib "azip32.dll"( ByVal Int16 As Integer) As Integer
  38. Declare Function addZIP_SetCompressionLevel Lib "azip32.dll"( ByVal Int16 As Integer) As Integer
  39. Declare Function addZIP_SetParentWindowHandle Lib "azip32.dll"( ByVal Hwnd As Long) As Integer
  40. Declare Function addZIP_SetTempDrive Lib "azip32.dll"( ByVal lpStr As String) As Integer
  41. Declare Function addZIP_SetWindowHandle Lib "azip32.dll"( ByVal Hwnd As Long) As Integer
  42. Declare Function addZIP_Span Lib "azip32.dll"( ByVal Int16 As Integer) As Integer
  43. Declare Function addZIP_Store Lib "azip32.dll"( ByVal lpStr As String) As Integer
  44. Declare Function addZIP_UseLFN Lib "azip32.dll"( ByVal Int16 As Integer) As Integer
  45. Declare Function addZIP_View Lib "azip32.dll"( ByVal Int16 As Integer) As Integer
  46.  
  47. '  constants for addZIP_SetCompressionLevel(...)
  48. Global Const azCOMPRESSION_MAXIMUM = &H03
  49. Global Const azCOMPRESSION_MINIMUM = &H01
  50. Global Const azCOMPRESSION_NONE = &H00
  51. Global Const azCOMPRESSION_NORMAL = &H02
  52.  
  53. ' constants for addZIP_SaveStructure(...)
  54. Global Const azSTRUCTURE_ABSOLUTE = &H02
  55. Global Const azSTRUCTURE_NONE = &H00
  56. Global Const azSTRUCTURE_RELATIVE = &H01
  57.  
  58. ' constants for addZIP_Overwrite(...)
  59. Global Const azOVERWRITE_ALL = &H0b
  60. Global Const azOVERWRITE_NONE = &H0c
  61. Global Const azOVERWRITE_QUERY = &H0a
  62.  
  63. ' constants for addZIP_SetArchiveDate()
  64. Global Const DATE_NEWEST = &H03
  65. Global Const DATE_OLDEST = &H02
  66. Global Const DATE_ORIGINAL = &H00
  67. Global Const DATE_TODAY = &H01
  68.  
  69. ' constants for addZIP_IncludeXXX attribute functions
  70. Global Const azNEVER = &H00     ' 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 = &H01     ' 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 =     &H0a
  87. Global Const AM_ZIPCOMMENT =     &H0b
  88. Global Const AM_ZIPPING =       &H0c
  89. Global Const AM_ZIPPED =        &H0d
  90. Global Const AM_UNZIPPING =     &H0e
  91. Global Const AM_UNZIPPED =      &H0f
  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 = &H01
  107. Global Const azFT_NOT_ENCRYPTED = &H00
  108.  
  109. ' Constants for whether file is text or binary in AM_VIEW
  110. Global Const azFT_BINARY = &H01
  111. Global Const azFT_TEXT = &H00
  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 = &H00
  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 = &H0a
  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 = &H02
  130. Global Const azOW_NO_TO_ALL = &H03
  131. Global Const azOW_YES = &H00
  132. Global Const azOW_YES_TO_ALL = &H01
  133.