home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / packer / arc / arcpak / demoarj.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-28  |  498 b   |  21 lines
  1. program test;
  2. uses dos,arcpak2;
  3. var First       : Entr_;
  4.     Pcount      : word;
  5.     FilePoi     : Arj_point;
  6.     Head_ptr    : pointer;
  7.     i           : integer;
  8. begin
  9.   GetAll_Arj('a:unarj.arj',First, PCount);
  10.   FilePoi:=First.Entry;
  11.   i:=1;
  12.   FilePoi:=FilePoi^.Nextarj;             { First entry is arj file itself }
  13.   writeln(FilePoi^.Name^);
  14.   repeat
  15.     inc(i);
  16.     FilePoi:=FilePoi^.Nextarj;
  17.     writeln(FilePoi^.Name^);
  18.   until (I=Pcount-1);
  19.   Dispose_arj(First);
  20. end.
  21.