home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / packer / arc / arcpak / demopak.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-28  |  697 b   |  27 lines
  1. program test;
  2. uses dos,arcpak2;
  3. var First       : Entr_;
  4.     Pcount      : word;
  5.     FilePoi     : Pak_point;
  6.     Head_ptr    : pointer;
  7.     Header      : ^PakHead;
  8.     i           : integer;
  9. begin
  10.   GetAll_Pak('a:test.sda',First, PCount, Head_ptr);
  11.   Header:=Head_ptr;
  12.   FilePoi:=First.Entry;
  13.   i:=0;
  14.   repeat
  15.     inc(i);
  16.     write(FilePoi^.Name^,' : ');
  17.     if not (FilePoi^.Extend^.Comment=NIL) and not (FilePoi^.Extend=NIL) then begin
  18.        write(FilePoi^.Extend^.Comment^,' : ');
  19.        writeln(FilePoi^.Extend^.Path^);
  20.     end;
  21.     FilePoi:=FilePoi^.NextPak;
  22.   until (I=Pcount);
  23.   writeln(MemAvail);
  24.   Dispose_Pak(First,pointer(Header));
  25.   writeln(MemAvail);
  26. end.
  27.