ARJ文件，查看内容，如何显示一个压缩文件，内容贡献者：赃物的支持团队，计划readarj；，用途， CRT， 搜索；，const，  arjid =`ê；，类型，  array10 =阵[ 1 ]，10字节；，  array12 =阵[ 1 ]，12字符；，  afilerec =记录，               filedate：LongInt；，               compressedsize：LongInt；，               originalsize：LongInt；，               dudspace：array10；，               文件名：array12，             端；，  array60k =阵[ 1 ]，61440字节；，VaR，  缓冲：array60k；，  arjfilerec：afilerec；，  arjfilesize，，  arjrecstart，,   ArjRecStop,,   Index,,   Index1 : LongInt;,   ArjFile : File;, begin,   ClrScr;,   fillChar(Buffer, sizeof(Buffer), 0);,   fillChar(ArjFileRec, sizeof(ArjFileRec), 0);,   ArjFileSize := 0;,   ArjRecStart := 1; , ,   ArjRecStop := 0;,   assign(ArjFile, 'TEST.ARJ');,   {$I-},   reset(ArjFile, 1);,   {$I+},   if (ioresult <> 0) then,     begin,       Writeln(' ERRor OPENinG TEST.ARJ');,       halt(255),     end;,   ArjFileSize := Filesize(ArjFile);,   Index := ArjFileSize - 50;,   blockread(ArjFile, Buffer, Index);,   close(ArjFile);,   Index1 := 50;,   ArjFileRec.Filename := ' ';,   While ((Index1 + 33）<；arjfilesize）做的，    开始，      arjrecstart：= strpos（缓冲[ 1 ]，指数，arjid）+ 11；，      arjrecstop：= strpos（缓冲[ 1 ] + arjrecstart + 22，13，0，#）；      移动（缓冲[ arjrecstart + 1 ]，arjfilerec，（arjrecstop + 21））；，      与arjfilerec做，        开始，          Writeln（与# 39；与# 39；，文件名，和# 39；压缩大小=和# 39；，compressedsize：6，39，                    和#；原始尺寸=和# originalsize：6，39；）；，          文件名：=和# 39；与# 39；；，          公司（1，compressedsize + arjrecstop + arjrecstart）；，          DEC（指数，compressedsize + arjrecstop + arjrecstart），        结束，   ,   voorbij, voorbij.