7-ZIP API怎么调用?
Public Type tagINDIVIDUALINFOdwOriginalSize As LongdwCompressedSize As LongdwCRC As LonguFlag As LonguOSType As LongwRatio As IntegerwDate As IntegerwTime As IntegerszFilename As String * FNAME_MAX32PLUS1dummy1 As String * 3szAttribute As String * 8szMode As String * 8End TypePublic Type tagEXTRACTINGINFO dwFileSize As Long dwWriteSize As Long szSourceFileName As String * 513 dummy1 As String * 3 szDestFileName As String * 513 dummy As String * 3End TypePublic Type tagEXTRACTINGINFOEX exinfo As tagEXTRACTINGINFO dwCompressedSize As Long dwCRC As Long uOSType As Long wRatio As Long wDate As Long wTime As Long szAttribute As String * 8 szMode As String * 8End TypePublic Declare Function SevenZipGetVersion Lib "7-zip32" () As IntegerPublic Declare Function SevenZipGetSubVersion Lib "7-zip32" () As IntegerPublic Declare Function SevenZipGetRunning Lib "7-zip32" () As LongPublic Declare Function SevenZipGetBackGroundMode Lib "7-zip32" () As LongPublic Declare Function SevenZipSetBackGroundMode Lib "7-zip32" (ByVal bBackGroundMode As Long) As LongPublic Declare Function SevenZipGetCursorMode Lib "7-zip32" () As LongPublic Declare Function SevenZipSetCursorMode Lib "7-zip32" (ByVal CursorMode As Long) As LongPublic Declare Function SevenZipGetCursorInterval Lib "7-zip32" () As IntegerPublic Declare Function SevenZipSetCursorInterval Lib "7-zip32" (ByVal Interval As Integer) As IntegerPublic Declare Function SevenZip Lib "7-zip32" (ByVal hWnd As Long, ByVal szCmdLine As String, ByVal szOutPut As String, ByVal dwsize As Long) As LongPublic Declare Function SevenZipCheckArchive Lib "7-zip32" (ByVal szFilename As String, ByVal imode As Long) As LongPublic Declare Function SevenZipGetFileCount Lib "7-zip32" (ByVal szArcFile As String) As LongPublic Declare Function SevenZipQueryFunctionList Lib "7-zip32" (ByVal iFunction As Long) As LongPublic Declare Function SevenZipConfigDialog Lib "7-zip32" (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal imode As Long) As LongPublic Declare Function SevenZipExtractMem Lib "7-zip32" (ByVal hWnd As Long, ByVal szCmdLine As String, ByRef lpBuffer As Byte, ByVal dwsize As Long, lpTime As Long, lpwAttr As String, lpdwWriteSize As Long) As LongPublic Declare Function SevenZipCompressMem Lib "7-zip32" (ByVal hWnd As Long, ByVal szCmdLine As String, ByRef lpBuffer As Byte, ByVal dwsize As Long, lpTime As Long, lpwAttr As String, lpdwWriteSize As Long) As LongPublic Declare Function SevenZipOpenArchive Lib "7-zip32" (ByVal hWnd As Long, ByVal szFilename As String, ByVal dwsize As Long) As LongPublic Declare Function SevenZipCloseArchive Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipFindFirst Lib "7-zip32.dll" (ByVal hArc As Long, ByVal szWildName As String, lpSubInfo As tagINDIVIDUALINFO) As LongPublic Declare Function SevenZipFindNext Lib "7-zip32.dll" (ByVal hArc As Long, lpSubInfo As tagINDIVIDUALINFO) As LongPublic Declare Function SevenZipGetArcFileName Lib "7-zip32" (ByVal hArc As Long, ByVal lpBuffer As String, nSize As Integer) As LongPublic Declare Function SevenZipGetArcFileSize Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetArcFileSizeEx Lib "7-zip32" (ByVal hArc As Long, ByVal lpllsize As Currency) As LongPublic Declare Function SevenZipGetArcOriginalSize Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetArcOriginalSizeEx Lib "7-zip32" (ByVal hArc As Long, ByVal lpllsize As Currency) As LongPublic Declare Function SevenZipGetArcReadSize Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetArcReadSizeEx Lib "7-zip32" (ByVal hArc As Long, ByVal lpllsize As Currency) As LongPublic Declare Function SevenZipGetArcCompressedSize Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetArcCompressedSizeEx Lib "7-zip32" (ByVal hArc As Long, ByVal lpllsize As Currency) As LongPublic Declare Function SevenZipGetArcRatio Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetArcDate Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetArcTime Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetArcOSType Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipIsSFXFile Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetFileName Lib "7-zip32" (ByVal hArc As Long, ByVal lpBuffer As String, nSize As Integer) As LongPublic Declare Function SevenZipGetMethod Lib "7-zip32" (ByVal hArc As Long, ByVal lpBuffer As String, nSize As Integer) As LongPublic Declare Function SevenZipGetOriginalSize Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetOriginalSizeEx Lib "7-zip32" (ByVal hArc As Long, ByVal lpllsize As Currency) As LongPublic Declare Function SevenZipGetCompressedSize Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetCompressedSizeEx Lib "7-zip32" (ByVal hArc As Long, ByVal lpllsize As Currency) As LongPublic Declare Function SevenZipGetRatio Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetDate Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetTime Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetWriteTime Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetCreateTime Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetAccessTime Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetCRC Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetAttribute Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetOSType Lib "7-zip32" (ByVal hArc As Long) As LongPublic Declare Function SevenZipGetWriteTimeEx Lib "7-zip32" (ByVal hArc As Long, lpftLastWriteTime As VBFILETIME) As LongPublic Declare Function SevenZipGetCreateTimeEx Lib "7-zip32" (ByVal hArc As Long, lpftCreationTime As VBFILETIME) As LongPublic Declare Function SevenZipGetAccessTimeEx Lib "7-zip32" (ByVal hArc As Long, lpftLastAccessTime As VBFILETIME) As LongPublic Declare Function SevenZipGetArcWriteTimeEx Lib "7-zip32" (ByVal hArc As Long, lpftLastWriteTime As VBFILETIME) As LongPublic Declare Function SevenZipSetOwnerWindow Lib "7-zip32" (ByVal hWnd As Long) As LongPublic Declare Function SevenZipClearOwnerWindow Lib "7-zip32" () As LongPublic Declare Function SevenZipSetOwnerWindowEx Lib "7-zip32" (ByVal hWnd As Long, ByVal lpArcProc As ARCHIVERPROC) As LongPublic Declare Function SevenZipSetOwnerWindowEx Lib "7-zip32" (ByVal hWnd As Long, ByVal lpArcProc As Long) As LongPublic Declare Function SevenZipKillOwnerWindowEx Lib "7-zip32" () As LongPublic Declare Function SevenZipSetEnumMembersProc Lib "7-zip32" (ByVal lpEnumProc As UNLHA_ENUM_MEMBER_INFO) As LongPublic Declare Function SevenZipClearEnumMembersProc Lib "7-zip32" () As LongPublic Declare Function SevenZipSetEnumMembersProc64 Lib "7-zip32" (ByVal lpEnumProc As UNLHA_ENUM_MEMBER_INFO64, ByVal dwStructSize As Long) As LongPublic Declare Function SevenZipClearEnumMembersProc64 Lib "7-zip32" () As LongPublic Function ArchiveProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal nState As Long, lpEis As tagEXTRACTINGINFOEX) As Long'这个是回调函数。nstate=2时压缩或解压完毕。可回显lpEis下的参数。End FunctionSevenZipSetOwnerWindowEx Me.hWnd, AddressOf ArchiveProc‘回调