home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / packer / arc / arcpak / demozip.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-28  |  706 b   |  29 lines
  1. program test;
  2. uses dos,arcpak2;
  3. var First       : Entr_;
  4.     Pcount      : word;
  5.     FilePoi     : ZCent_point;
  6.     HeadEnd     : ZipEnd_point;
  7.     Head_ptr    : pointer;
  8.     i           : integer;
  9. begin
  10.   GetAll_Zip('a:test2.zip',First, PCount,Head_ptr);
  11.   FilePoi:=First.Entry;
  12.   i:=0;
  13.   HeadEnd:=Head_ptr;
  14.   write(FilePoi^.Name^);
  15.   if (Filepoi^.Comment <> NIL) then
  16.     writeln(' : ',FilePoi^.Comment^)
  17.   else writeln;
  18.   repeat
  19.     inc(i);
  20.     FilePoi:=FilePoi^.Nextzipl;
  21.     write(FilePoi^.Name^);
  22.     if (Filepoi^.Comment <> NIL) then
  23.       writeln(' : ',FilePoi^.Comment^)
  24.     else writeln;
  25.   until (I=Pcount-1);
  26.   Dispose_Zip(First, Head_ptr);
  27.   writeln(memavail);
  28. end.
  29.