- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
; извлечь из архива список содержащихся в нем файлов
; jopaU - Jammed Objects Packaged Archive (Unit)
Procedure.s GetJopaList(JopaFilename.s)
Protected Text.s = ""
If FileExists(JopaFilename)
OpenPack(JopaFilename)
Text = PeekS(NextPackFile())
Text = Left(Text, PackFileSize())
ClosePack()
EndIf
ProcedureReturn Text
EndProcedure
Комментарии (0) RSS
Добавить комментарий