, en enhed, der viser indholdet af komprimeret filer, bidragyder: steve wierenga, {, forfatter: steve wierenga, arj skærm,}, {- - er jeg frigivelsen af disse andele til offentligheden.de enheder, arj,, lzh og zip filer.de er ikke professionel, og har sikkert nogle insekter.hvis du bruger disse i deres programmer og har lyst til at give mig kredit, jeg vandt ' t objekt.Here goes: }, Unit ArjV;, (**) Interface (**), Uses,   Dos,Crt;, Type,   AFHeader = Record { ArjFileHeader },     HeadID,,     HdrSize : Word;,     HeadSize,,     VerNum,,     MinVerNum,,     HostOS,,     ArjFlag,,     Method,,     FType,,     Reserved : Byte;,     FileTime,,     PackSize,,     OrigSize,,     FileCRC : LongInt;,     FilePosF,,     FileAcc,,     HostData : Word;,   end;, Var,   ff : Integer;,   b : Byte;,   f : File;,   sl : LongInt;,   NR : Word;,   FHdr : ^AFHeader;,   s,sss : String;,   Method : String[8];,   l : String[80];,   Z,,   totalu,,   totalc : LongInt;,   x,d : LongIntog,    dt1, dt2: datetime;,    jeg, e: heltal,    registreret: boolean;, procedure arjview (arjfile: string), funktion gan (arjfile: string): string. (* *) (* *), gennemførelsen af proceduren afsluttes, begynder,    skrive (' archpeek ikke kunne finde specificeret fil.    aflyst... og'),    stå;,;, procedure arjview (arjfile: string), begynder,    nye (fhdr),    tildele f, arjfile),    {$-},    nulstille f, 1); (åbne dossier),    {$i +),   , hvis ioresult < > 0,      opsige; (specificeret sag?},    registreret: = falske (ikke - registrerede},   , hvis ikke registreret,    begynder,      writeln (' archpeek 0.01alpha [en] ophavsret 1993 steve wierenga '),      forsinkelse (200),   ;,    sl: = 0; z: = 0, totalu: = 0, totalc: = 0 (lokalitet variabler),    værdipapirafviklingssystem: = gan (arjfile) (kom arj filnavn},    writeln (' arj filnavn: ', værdipapirafviklingssystem),    skrive (' navn længde størrelse reddede metode dato, tidspunkt og'),    writeln (' ____________________________________________________________________________ '),    ff: = 0,    gentager,      ff: = ff + 1,      søge (f, sl),      blockread (f, fhdr), 7 (afheader), nr); (læse overskriften},     If (NR = SizeOf(AFHeader)) Then,     begin,       s := '';,       Repeat,         BlockRead(F,B,1); { Get Char For Compressed Filename },         If B <> 0 Then,           s := s + Chr(b); { Put Char in String },       Until B = 0; { Until no more Chars },       Case Length(S) Of { Straighten out String },         0 : s := s + ' ';,         1 : S := s + ' ';,         2 : s := s + ' ';,         3 : S := S + ' ';,         4 : S := S + ' ';,         5 : S := S + ' ';,         6 : S := S + ' ';,         7 : S := S + ' ';,         8 : S := S + ' ';,         9 : S := S + ' ';,         10 : S := S + ' ';,         11 : S := S + ' ';,         12 : S := S;,       end;,       z := z + 1;,       UnPackTime(FHdr^.FileTime,dt2); { Get the time of compressed File },       Case FHdr^.Method Of { Get compression method },         0 : Method := 'Stored ';,         1 : Method := 'Most ';,         2 : Method := '2nd Most';,         3 : Method := '2nd Fast';,         4 : Method := 'Fastest ';,       end;,       Write( ' ',S,FHdr^.OrigSize:9,FHdr^.PackSize:10);,       { Write Filesizes },       If ff > 1 then , ,         { Don't get first Arj File in Arj File },         Write( (100-FHdr^.PackSize/FHdr^.OrigSize*100):9:0,'%',Method:15),          { Write ratios, method },         Else,           Write( Method:25);,       Case dt2.month of { Show date of compressed File },         1..9 : Write( '0':4,dt2.month);,         10..12 : Write( dt2.month:4);,       end;,       Write( '/');,       Case dt2.day of,         1..9 : Write( '0',dt2.day);,         10..31 : Write( dt2.day);,       end;,       Write( '/');,       Case dt2.year of,         1980 : Write( '80');,         1981 : Write( '81');,         1982 : Write( '82');,         1983 : Write( '83');,         1984 : Write( '84');,         1985 : Write( '85');,         1986 : Write( '86');,         1987 : Write( '87');,         1988 : Write( '88');,         1989 : Write( '89');,         1990 : Write( '90');,         1991 : Write( '91');,         1992 : Write( '92');,         1993 : Write( '93');,         1994 : Write( '94');,         1995 : Write( '95');,         1996 : Write( '96');,       end;,       Case dt2.hour of { Show time of compressed File },         0..9 : Write( '0':2,dt2.hour,':');,         10..23 : Write( dt2.hour:3,':');,       end;,       Case dt2.min of,         0..9 : Write( '0',dt2.min,':');,         10..59 : Write( dt2.min,':');,       end;,       Case dt2.sec of,         0..9 : Writeln( '0',dt2.sec);,         10..59 : Writeln( dt2. sek.),       ;,        totalu: = totalu + fhdr ^. origsize; (øge den samlede usammenpressede størrelse),        totalc: = totalc + fhdr ^. packsize; (øge den samlede komprimeret størrelse),        gentager,          blockread (f, b, 1),        indtil b = 0,        blockread (f, fhdr ^. filecrc, 4); (gå forbi fil crc},        blockread (f, nr. 2),        sl: = filepos (f) + fhdr ^. packsize; (hvor er vi i?},     ;,    indtil (fhdr ^. hdrsize = 0); (ikke mere?},   GetFTime(F,x);,   UnPackTime(x,dt1);,   WriteLn('============================================================================');,   Write( (z-1):4,' Files',TotalU:12,TotalC:10,(100-TotalC/TotalU*100):9:0,'%');,   Case dt1.month of { Get date and time of Arj File },     1..9 : Write( '0':19,dt1.month);,     10..12 : Write( dt1.month:20);,   end;,   Write( '/');,   Case dt1.day of,     1..9 : Write( '0',dt1.day);,     10..31 : Write( dt1.day);,   end;,   Write( '/');,   Case dt1.year of,     1980 : Write( '80');,     1981 : Write( '81');,     1982 : Write( '82');,     1983 : Write( '83');,     1984 : Write( '84');,     1985 : Write( '85');,     1986 : Write( '86');,     1987 : Write( '87');,     1988 : Write( '88');,     1989 : Write( '89');,     1990 : Write( '90');,     1991 : Write( '91');,     1992 : Write( '92');,     1993 : Write( '93');,     1994 : Write( '94');,     1995 : Write( '95');,     1996 : Write( '96');,   end;,   Case dt1.hour of,     0..9 : Write( '0':2,dt1.hour,':');,     10..23 : Write( dt1.hour:3,':');,   end;,   Case dt1.min of,     0..9 : Write( '0',dt1.min,':');,      10. 59: skriv (dt1. min, og': '),   ;,    sag dt1.sec,      0. 9: writeln (', 0 ', dt1. sek.),      10. 59: writeln (dt1. sek.),   ;,    tæt (f),    bortskaffelse (fhdr); (gjort},;, funktion gan (arjfile: string): string;, var,    dir: dirstr;,    navn: namestr;,    ekstrakter: extstr; begynder,    fsplit (arjfile dir navn, ekstrakter),    gan: = navn + ekstrakter;,,,.,