globals.bas

对ima、imz压缩文件修改

Attribute VB_Name = "Globals"
' Windows API helper Functions
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

' Exported Wimadll.dll Function declarations
Declare Function WriteImaFile Lib "wimadll.dll" (ByVal Ima As Long, ByVal hWnd As Long, ByVal lpFn As String, ByVal fTruncate As Boolean, ByVal fCompr As Boolean, ByVal iLevelCompress As Long, ByVal dwPosBeginWrite As Long, ByVal lpNameInCompr As String) As Boolean
Declare Function ReadImaFile Lib "wimadll.dll" (ByVal Ima As Long, ByVal hWnd As Long, ByVal lpFn As String, lpfCompr As Boolean, ByVal dwPosFileBegin As Long) As Boolean
Declare Function CreateMemFatHima Lib "wimadll.dll" () As Long
Declare Function CreateMemHfsHima Lib "wimadll.dll" () As Long
Declare Function CreateCDIsoHima Lib "wimadll.dll" () As Long
Declare Function ReadFloppy Lib "wimadll.dll" (ByVal Ima As Long, ByVal hWnd As Long, ByVal bFloppy As Byte, ByVal caRead As Long) As Boolean
Declare Function WriteFloppy Lib "wimadll.dll" (ByVal Ima As Long, ByVal hWnd As Long, ByVal bFloppy As Byte, ByVal caFormat As Long, ByVal caWrite As Long, ByVal caCompare As Long, ByVal fCheckDiskBeforeWrite As Byte) As Boolean
Declare Function MkDir Lib "wimadll.dll" (ByVal Ima As Long, ByVal lpDir As String) As Boolean
Declare Function ChszDir Lib "wimadll.dll" (ByVal Ima As Long, ByVal lpDir As String) As Boolean
Declare Function ChDir Lib "wimadll.dll" (ByVal Ima As Long, ByVal bMode As Byte) As Boolean
Declare Function InjectFile Lib "wimadll.dll" (ByVal Ima As Long, ByVal lpDir As String, lpDwSize As Long, lpTooBig As Boolean, ByVal lpNameWhenInjected As String) As Boolean
Declare Function MakeEmptyImage Lib "wimadll.dll" (ByVal Ima As Long, ByVal iNoTypeDisk As Long) As Boolean
Declare Function InitWimaSdk Lib "wimadll.dll" (ByVal hinstdll As Long, ByVal lpDeb As String, ByVal wBase As Integer) As Boolean
Declare Function GetCurDir Lib "wimadll.dll" (ByVal Ima As Long, ByVal lpBuf As String, ByVal uiMaxSize As Long) As Boolean
Declare Function GetNbEntryCurDir Lib "wimadll.dll" (ByVal Ima As Long) As Long
Declare Function GetDirInfo Lib "wimadll.dll" (ByVal Ima As Long, di As DIRINFO, ByVal bSort As Byte) As Boolean
Declare Function Sort Lib "wimadll.dll" (ByVal Ima As Long, di As DIRINFO, ByVal bSort As Byte) As Boolean
Declare Function GetLabel Lib "wimadll.dll" (ByVal Ima As Long, ByVal lpDir As String) As Boolean
Declare Function SetLabel Lib "wimadll.dll" (ByVal Ima As Long, ByVal lpDir As String) As Boolean
Declare Function ExtractFile Lib "wimadll.dll" (ByVal Ima As Long, ByVal uiPosDir As Long, ByVal lpPath As String, ByVal lpFullName As String) As Boolean
Declare Function CheckSpaceForFile Lib "wimadll.dll" (ByVal Ima As Long, ByVal dwSize As Long) As Boolean
Declare Function IfInjectPossibleButNeedReplace Lib "wimadll.dll" (ByVal Ima As Long, ByVal lpFn As String, lpDwSize As Long, ByVal lpShortName As String, ByVal lpShortExt As String, ByVal lpNameWhenInjected As String) As Boolean
Declare Function RmDir Lib "wimadll.dll" (ByVal Ima As Long, ByVal uiPosDir As Long) As Boolean
Declare Function DeleteFileNameExt Lib "wimadll.dll" (ByVal Ima As Long, ByVal lpNom As String, ByVal lpExt As String, ByVal fRealDel As Boolean) As Boolean
Declare Function ReadData Lib "wimadll.dll" (ByVal Ima As Long, ByVal dwPos As Long, ByVal dwSize As Long, ByVal lpBuf As String) As Boolean
Declare Function WriteData Lib "wimadll.dll" (ByVal Ima As Long, ByVal dwPos As Long, ByVal dwSize As Long, ByVal lpBuf As String) As Boolean

'Exported Wimadll.dll Subs
Declare Sub DeleteIma Lib "wimadll.dll" (ByVal Ima As Long)

' InitWimaSDK Constants
Public Const DEBENUSTD = "ENU"                      ' Not sure you need this in VB?
Public Const BASEENUSTD = (10000)                  ' "     "      "       "     "    "   "

'Drive Constants
Public Const A_DRIVE = 0
Public Const B_DRIVE = 1

' General Constants
Public Const MAXLFN = 256

Public Const SORT_NONE = 72
Public Const SORT_NAME = 73
Public Const SORT_EXT = 74
Public Const SORT_SIZE = 75
Public Const SORT_DATE = 76

Public Const CDM_ROOT = 50
Public Const CDM_UPPER = 51
Public Const CDM_ENTRY = 52

' value for CaRead or CaCompare or CaWrite or CaFormat
Public Const FL_NOTHING = 0
Public Const FL_USED = 1
Public Const FL_ALL = 2
Public Const FL_BEGINFLOPPY = 3

'DIRINFO Structure used in 'GetDirInfo' and 'Sort' Functions
Type DIRINFO
    nom(8) As Byte
    ext(3) As Byte
    szCompactName(13) As Byte
    bAttr As Byte
    cReserved(3) As Byte

    DosTime As Integer
    DosDate As Integer

    fIsSubDir As Boolean
    fSel As Boolean
    fLfnEntry As Boolean
    dwSize As Long
    uiPosInDir As Long
    
    dwLocalisation As Long
    dwTrueSize As Long
    longname(MAXLFN + 1) As Byte
    cReserved2(3) As Byte
End Type