Skip to content

Latest commit

 

History

History
60 lines (52 loc) · 1.39 KB

README.md

File metadata and controls

60 lines (52 loc) · 1.39 KB
Raw

Lazarus_Unpacker

PV_Unpacker - simple pure Pascal library to unpack various archives (ZIP, RAR, LZMA, TAR...)

See also: https://github.com/PascalVault/Lazarus_Packer

Demo application

image info

Supported formats (46+)

  • .ZIP, .JAR, .CBZ, .DOCX (store, deflate, lzma, bzip2)
  • .RAR, .CBR (version 4 and 5; store)
  • .TAR, .CBT
  • .ARJ (store, methods: 1-3)
  • .LZH, .LHA (store, lh1, lh4, lh5, lh6, lh7, lhx)
  • .ZOO (store, lzh)
  • .AR (store, lh4, lh5)
  • BlackHole .BH (store, deflate)
  • .BIG
  • BGA .BZA/.GZA
  • .CPIO
  • .DPK
  • .DRS
  • .FTG
  • .GZIP, .GZ
  • .BZIP2, .BZ2
  • .HA
  • .LBR
  • .LZ, .LZMA
  • .PCK
  • Homm3 .LOD
  • Quake .PAK
  • Doom .WAD
  • Quake .WAD and more!

Unsupported

  • encrypted ZIP, RAR archives
  • RAR files that use method different than "store"
  • ARJ files that use method "fastest"

Comming soon

  • progress bar
  • integrity verification

Usage

use PV_Unpacker;
...
var Unp: TUnpacker;
begin
  Unp := TUnpacker.Create(OpenDialog1.Filename);

  if Unp.GetFormat = '' then ShowMessage('Unsupported');

  for i:=0 to Unp.Count-1 do begin
    Memo1.Lines.Add('name ' + Unp.GetName(i) + ', crc ' + IntToHex( Unp.GetCRC(i)) + ', date ' +  DateToStr(Unp.GetDate(i)) + ', packed size ' + IntToStr(Unp.GetPackedSize(i)) );
    if Unp.CanUnpack(i) then Unp.Extract(i, Unp.GetName(i) );        
  end;
  Unp.Free;
end;