PureBasic Forums - English

Code: Select all

The purpose of PureCAB is to handle CAB files [MS-Cabinet].

Note : This library does not support InstallShield archives [also CAB extension].

Code: Select all

; Compression callback
Procedure.l MyCustom_Compression_StatusCallBack(Filename.s, PerCent.f)
  ; Filename : current processed filename
  ; PerCent  : current compression progression [0-100%]
  Debug "Packing " + Filename + " - " + StrF(PerCent, 2) + "%"
EndProcedure
; Set compression callback
PureCAB_SetCompressionCallback(@MyCustom_Compression_StatusCallBack())
; Create Archive
Handle = PureCAB_Create("c:\PureBasic410\Program\test.cab")
If Handle
  PureCAB_Compress(Handle, "c:\WINDOWS\Coffee Bean.bmp", "Another Name.bmp")
  PureCAB_Compress(Handle, "c:\PureBasic410\Help\Win32.hlp")
  PureCAB_Compress(Handle, "c:\WINDOWS\FeatherTexture.bmp")
  PureCAB_Compress(Handle, "c:\WINDOWS\Gone Fishing.bmp")
  PureCAB_Compress(Handle, "c:\PureBasic410\Help\SOCK2.HLP")
  PureCAB_Close(Handle)
  Debug "Done"
Else
  Debug "Failed creating cab"
EndIf