home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / packer / arc / arcpak / demoarc.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-28  |  738 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_arc('a:test.arc',First, PCount, Head_ptr);
  11.   FilePoi:=First.Entry;
  12.   Header:=Head_ptr;
  13.   if Not (Header^.Extend^.Comment=Nil) then writeln(Header^.Extend^.Comment^);
  14.   i:=0;
  15.   repeat
  16.     inc(i);
  17.     write(FilePoi^.Name^,' : ');
  18.     if not (FilePoi^.Extend^.Comment=NIL) and not (FilePoi^.Extend=NIL) then
  19.        writeln(FilePoi^.Extend^.Comment^)
  20.     else writeln('');
  21.     FilePoi:=FilePoi^.NextPak;
  22.   until (I=Pcount);
  23.   writeln(MemAvail);
  24.   Dispose_Arc(First,pointer(Header));
  25.   writeln(MemAvail);
  26. end.
  27.