home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / packer / arc / arcpak / demolzh.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-28  |  464 b   |  21 lines
  1. program test;
  2. uses dos,arcpak2;
  3. var First       : Entr_;
  4.     Pcount      : word;
  5.     FilePoi     : Lharc_point;
  6.     Head_ptr    : pointer;
  7.     i           : integer;
  8. begin
  9.   GetAll_Lzh('a:test.lzh',First, PCount ,Head_ptr);
  10.   FilePoi:=First.Entry;
  11.   i:=0;
  12.   writeln(FilePoi^.Name^);
  13.   repeat
  14.     inc(i);
  15.     FilePoi:=FilePoi^.NextLzh;
  16.     writeln(FilePoi^.Name^);
  17.   until (I=Pcount-1);
  18.   Dispose_Lzh(First, Head_ptr);
  19.   writeln(memavail);
  20. end.
  21.