Сообщество Чайников

Вопрос

Как на VB разархивировать CAB?

Ответ

Вот апишки, как ими пользоваться — не знаю

Declare Function FDICopy Lib "CABINET.DLL" (ByRef hfdi As hfdi, ByVal
pszCabinet As String, ByVal pszCabPath As String, ByVal flags As Long, ByRef
pfnfdin As PFNFDINOTIFY, ByRef pfnfdid As PFNFDIDECRYPT, pvUser As Any) As
Long

Declare Sub FDICreate Lib "CABINET.DLL" (ByRef pfnalloc As pfnalloc, ByRef
pfnfree As pfnfree, ByRef pfnopen As pfnopen, ByRef pfnread As pfnread,
ByRef pfnwrite As pfnwrite, ByRef pfnclose As pfnclose, ByRef pfnseek As
pfnseek, ByVal cpuType As Long, ByRef perf As perf)

Declare Function FDIDestroy Lib "CABINET.DLL" (ByRef hfdi As hfdi) As Long

Declare Function FDIIsCabinet Lib "CABINET.DLL" (ByRef hfdi As hfdi, ByRef
hf As INT_PTR, ByRef pfdici As PFDICABINETINFO) As Long

Declare Function FDITruncateCabinet Lib "CABINET.DLL" (ByRef hfdi As hfdi,
ByVal pszCabinetName As String, ByVal iFolderToDelete As Integer) As Long

PDW использует эту:

Public Declare Function ExtractFileFromCab Lib "vb6stkit.dll" (ByVal Cab As
String, ByVal File As String, ByVal Dest As String, ByVal iCab As Long,
ByVal sSrc As String) As Long

Кому интересно — можно почитать на сайте MS:

http://msdn.microsoft.com/library/

Из конференции VB