Здравствуйте. Есть такой код распаковки архива, который использует стандартную в Delphi 7 библиотеку ZLib: [Code]procedure Decompress; var dest,s : String; decompr : TDecompressionStream; infile, outfile : TFilestream; i,l,c : Integer; begin dest := IncludeTrailingPathDelimiter(DestDirectory_); infile := TFileStream.Create(Filename_,fmOpenRead); try infile.Read(c,SizeOf(c)); max:=c; for i := 1 to c do begin infile.Read(l,SizeOf(l)); SetLength(s,l) ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83114