' Deklaration der Funktionen
' Allgemeine Funktionen
Public Declare Function sevZIP_InitZip Lib "sevZip32.dll" _
  Alias "InitZip" (ByVal sInit As String) As Boolean
 
Public Declare Sub sevZIP_SetLanguage Lib "sevZip32.dll" _
  Alias "SetLanguage" (ByVal nLanguage As Integer)
 
' Zip/Unzip-Funktionen
Public Declare Sub sevZIP_SetCompressionRate Lib "sevZip32.dll" _
  Alias "SetCompressionRate" (ByVal nRate As Integer)
 
Public Declare Sub sevZIP_SetRootDir Lib "sevZip32.dll" _
  Alias "SaveFolderLocation" (ByVal sRootPath As String)
 
Public Declare Function sevZIP_ZipFile Lib "sevZip32.dll" _
  Alias "ZipFile" ( _
  ByVal sZipFile As String, _
  ByVal sSourceFile As String, _
  ByVal sPassword As String, _
  ByVal nOverwrite As Integer, _
  ByVal hStatus As Integer) As Integer
 
Public Declare Function sevZIP_ZipAddFile Lib "sevZip32.dll" _
  Alias "ZipAddFile" ( _
  ByVal sZipFile As String, _
  ByVal sFilesToAdd As String, _
  ByVal nOverwrite As Integer, _
  ByVal hStatus As Integer) As Integer
 
Public Declare Function sevZIP_ZipDeleteFile Lib "sevZip32.dll" _
  Alias "ZipDeleteFile" ( _
  ByVal sZipFile As String, _
  ByVal sFilesToDelete As String, _
  ByVal hStatus As Integer) As Integer
 
Public Declare Function sevZIP_ZipFolderEx Lib "sevZip32.dll" _
  Alias "ZipFolderEx" ( _
  ByVal sZipFile As String, _
  ByVal sSourcePath As String, _
  ByVal sFileSpec As String, _
  ByVal nSubFolder As Integer, _
  ByVal sPassword As String, _
  ByVal nOverwrite As Integer, _
  ByVal hStatus As Integer) As Integer
 
Public Declare Function sevZIP_UnzipEx Lib "sevZip32.dll" _
  Alias "UnZipEx" ( _
  ByVal sZipFile As String, _
  ByVal sDestPath As String, _
  ByVal sFileSpec As String, _
  ByVal nSubFolder As Integer, _
  ByVal sPassword As String, _
  ByVal nOverwriteState As Integer, _
  ByVal hStatus As Integer) As Integer
 
Public Declare Function sevZIP_ZipFileCount Lib "sevZip32.dll" _
  Alias "ZipFileCount" (ByVal sZipFile As String) As Integer
 
Public Declare Function sevZIP_ZipFileInfo Lib "sevZip32.dll" _
  Alias "ZipFileInfo" ( _
  ByVal sZipFile As String, _
  ByVal nIndex As Integer, _
  ByVal hWnd As Integer) As Integer
 
 
' Ereignis-Steuerung
Public Declare Sub sevZIP_CancelZip Lib "sevZip32.dll" _
  Alias "CancelZip" ()
 
Public Declare Function sevZIP_ZipProgress Lib "sevZip32.dll" _
  Alias "ZipProgress" () As Integer
 
 
' nur aus Kompatibilitätsgründen zur Version 1.0
Public Declare Function sevZIP_ZipFolder Lib "sevZip32.dll" _
  Alias "ZipFolder" ( _
  ByVal sZipFile As String, _
  ByVal sSourcePath As String, _
  ByVal sPassword As String, _
  ByVal nOverwrite As Integer, _
  ByVal hStatus As Integer) As Integer
 
Public Declare Function sevZIP_UnZip Lib "sevZip32.dll" _
  Alias "UnZip" ( _
  ByVal sZipFile As String, _
  ByVal sDestPath As String, _
  ByVal sPassword As String, _
  ByVal nOverwriteState As Integer, _
  ByVal hStatus As Integer) As Integer

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de