CatchPack

[User_Russian]

Propose to add the function CatchPack()

Result = CatchPack(#Pack, *Buffer, Size)

It is necessary, for example, if the Pack-file is in DataSection and includes all program resources (images, sounds, sprites, etc.).

[ts-soft]

+1

This is required for SFX (Self Extracting Files).

[User_Russian]

This is required for SFX (Self Extracting Files).

I have just tried it and I have successfully managed to create a self-extracting archive of the code (slightly modified example from help).

Code: Select all

  UseZipPacker()
  
  ProgFile.s=ProgramFilename()
  Path.s=GetPathPart(ProgFile)
  
  ; Open the packed file
  If OpenPack(0, ProgramFilename()) 
    
    ; List all the entries
    If ExaminePack(0)
      While NextPackEntry(0)
        UncompressPackFile(0, PackEntryName(0))
      Wend
    EndIf
    
    ClosePack(0)
  EndIf

Create from the executable EXE-file.
Written at the end of the executable file, ready ZIP-archive.
At the end of the record the file size (number of bytes) in the form of long-variable.

You will have a self-extracting ZIP-archive.
Had just tried it and this method works.

[BarryG]

add the function CatchPack()

+1

[Cyllceaux]

add the function CatchPack()

+1

[GoodNPlenty]

User_Russian wrote: ↑Fri Feb 08, 2013 11:14 am
add the function CatchPack()

+1

[Caronte3D]

+1

[davido]

+1

[nsstudios]

This would be really useful.
+1

[Quin]

+1

[idle]

Ezpack supports that
viewtopic.php?p=399040#p399040

[nsstudios]

Thank you Idle, I've totally missed that!
Still, a native func would be nice, but this is awesome. Thank you for making that.

[Quin]

Oh, that's epic! Agreed with nsstudios, a native Procedure to do this would be great, but this is awesome! Thanks a ton!

[idle]

Thanks nsstudio and quin, yes native would be good.