home *** CD-ROM | disk | FTP | other *** search
/ BUG 6 / BUGCD1997_09.BIN / UTIL / ADDZIP / ADDZIP.EXE / VB / AUNZIP32.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-06-01  |  4.6 KB  |  99 lines
  1. ' Visual Basic declares file for
  2. '
  3. '     aunzip32.dll  addUNZIP 32-bit decompression library
  4. '
  5. ' Copyright ⌐ 1996,1997 Stephen Darlington. All rights reserved.
  6. ' Written by Stephen Darlington                  June 1997
  7.  
  8. Declare Function addUNZIP Lib "aunzip32.dll"() As Long
  9. Declare Function addUNZIP_ArchiveName Lib "aunzip32.dll"( ByVal filename As String) As Integer
  10. Declare Function addUNZIP_Decrypt Lib "aunzip32.dll"( ByVal cPassword As String) As Integer
  11. Declare Function addUNZIP_DisplayComment Lib "aunzip32.dll"( ByVal bFlag As Integer) As Integer
  12. Declare Function addUNZIP_Exclude Lib "aunzip32.dll"( ByVal files As String) As Integer
  13. Declare Function addUNZIP_ExcludeListFile Lib "aunzip32.dll"( ByVal cFile As String) As Integer
  14. Declare Function addUNZIP_ExtractTo Lib "aunzip32.dll"( ByVal cPath As String) As Integer
  15. Declare Function addUNZIP_Freshen Lib "aunzip32.dll"( ByVal iFlag As Integer) As Integer
  16. Declare Function addUNZIP_GetLastError Lib "aunzip32.dll"() As Integer
  17. Declare Function addUNZIP_GetLastWarning Lib "aunzip32.dll"() As Integer
  18. Declare Function addUNZIP_Include Lib "aunzip32.dll"( ByVal files As String) As Integer
  19. Declare Function addUNZIP_IncludeListFile Lib "aunzip32.dll"( ByVal cFile As String) As Integer
  20. Declare Sub addUNZIP_Initialise Lib "aunzip32.dll" ()
  21. Declare Function addUNZIP_InstallCallback Lib "aunzip32.dll"( ByVal fn As Long) As Integer
  22. Declare Function addUNZIP_Overwrite Lib "aunzip32.dll"( ByVal iFlag As Integer) As Integer
  23. Declare Function addUNZIP_Register Lib "aunzip32.dll"( ByVal cName As String, ByVal iNumber As Long) As Integer
  24. Declare Function addUNZIP_ResetDefaults Lib "aunzip32.dll"()
  25. Declare Function addUNZIP_RestoreAttributes Lib "aunzip32.dll"( ByVal iFlag As Integer) As Integer
  26. Declare Function addUNZIP_RestoreStructure Lib "aunzip32.dll"( ByVal iFlag As Integer) As Integer
  27. Declare Function addUNZIP_SetParentWindowHandle Lib "aunzip32.dll"( ByVal hwnd As Long) As Integer
  28. Declare Function addUNZIP_SetWindowHandle Lib "aunzip32.dll"( ByVal hwnd As Long) As Integer
  29. Declare Function addUNZIP_Test Lib "aunzip32.dll"( ByVal iFlag As Integer) As Integer
  30. Declare Function addUNZIP_ToMemory Lib "aunzip32.dll"( ByVal lpStr As String, ByVal Uint32 As Long) As Integer
  31. Declare Function addUNZIP_Update Lib "aunzip32.dll"( ByVal iFlag As Integer) As Integer
  32. Declare Function addUNZIP_View Lib "aunzip32.dll"( ByVal bFlag As Integer) As Integer
  33.  
  34. ' constants for addUNZIP_Overwrite(...)
  35. Global Const azOVERWRITE_ALL = &H0b
  36. Global Const azOVERWRITE_NONE = &H0c
  37. Global Const azOVERWRITE_QUERY = &H0a
  38.  
  39. ' constants used in messages to identify library
  40. Global Const azLIBRARY_ADDUNZIP = 1
  41.  
  42. ' constants for addUNZIP_RestoreAttributes(...)
  43. Global Const azATTR_NONE = 0
  44. Global Const azATTR_READONLY = 1
  45. Global Const azATTR_HIDDEN = 2
  46. Global Const azATTR_SYSTEM = 4
  47. Global Const azATTR_ARCHIVE = 32
  48. Global Const azATTR_ALL = 39
  49.  
  50. '  'messages' used to provide information to the calling program
  51. Global Const AM_SEARCHING =     &H0a
  52. Global Const AM_ZIPCOMMENT =     &H0b
  53. Global Const AM_ZIPPING =       &H0c
  54. Global Const AM_ZIPPED =        &H0d
  55. Global Const AM_UNZIPPING =     &H0e
  56. Global Const AM_UNZIPPED =      &H0f
  57. Global Const AM_TESTING =       &H10
  58. Global Const AM_TESTED =        &H11
  59. Global Const AM_DELETING =      &H12
  60. Global Const AM_DELETED =       &H13
  61. Global Const AM_DISKCHANGE =    &H14
  62. Global Const AM_VIEW =          &H15
  63. Global Const AM_ERROR =         &H16
  64. Global Const AM_WARNING =       &H17
  65. Global Const AM_QUERYOVERWRITE =&H18
  66. Global Const AM_COPYING =       &H19
  67. Global Const AM_COPIED =        &H1a
  68. Global Const AM_ABORT =         &Hff
  69.  
  70. ' Constants for whether file is encrypted or not in AM_VIEW
  71. Global Const azFT_ENCRYPTED = &H01
  72. Global Const azFT_NOT_ENCRYPTED = &H00
  73.  
  74. ' Constants for whether file is text or binary in AM_VIEW
  75. Global Const azFT_BINARY = &H01
  76. Global Const azFT_TEXT = &H00
  77.  
  78. ' Constants for compression method in AM_VIEW
  79. Global Const azCM_DEFLATED_FAST = &H52
  80. Global Const azCM_DEFLATED_MAXIMUM = &H51
  81. Global Const azCM_DEFLATED_NORMAL = &H50
  82. Global Const azCM_DEFLATED_SUPERFAST = &H53
  83. Global Const azCM_IMPLODED = &H3c
  84. Global Const azCM_NONE = 0 &H00
  85. Global Const azCM_REDUCED_1 = &H14
  86. Global Const azCM_REDUCED_2 = &H1e
  87. Global Const azCM_REDUCED_3 = &H28
  88. Global Const azCM_REDUCED_4 = &H32
  89. Global Const azCM_SHRUNK = &H0a
  90. Global Const azCM_TOKENISED = &H46
  91. Global Const azCM_UNKNOWN = &Hff
  92.  
  93. ' Constants used in returning from a AM_QUERYOVERWRITE message
  94. Global Const azOW_NO = &H02
  95. Global Const azOW_NO_TO_ALL = &H03
  96. Global Const azOW_YES = &H00
  97. Global Const azOW_YES_TO_ALL = &H01
  98.  
  99.