ARJ mening inhoud, lzh en ZIP

ARJ mening inhoud, lzh en ZIP - bestand,

, dat de inhoud van het dossier van de eenheid - bijdrage: Steve Wierenga {, auteur: Steve Wierenga, ARJ kijker,} {. Hallo, ik de vrijlating van deze eenheid van de openbare sector.Ze is de eenheid van mening, ARJ, lzh, en een ZIP - bestand.Ze is geen professionele, misschien is er iets fout.Als je met deze programma 's, gaf me het gevoel alsof ik, krediet,' t object...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 : LongInt ;, 1,8: datum, tijd en dosis. ik, E: gehele getal;, geregistreerd: Bull. Arjview, programma 's (arjfile: string, functie); GAN (arjfile: string: string); (* *) (* * * * * * *) voor De uitvoering van de beëindiging van de procedure, en begint te schrijven, ; (' archpeek kan het dossier niet vinden, stoppen... En'); stoppen, ; aan het einde van arjview;,, programma (arjfile: touw, beginnen, ); Nieuwe (fhdr); de toewijzing van , (F, arjfile, ); ik } {%, reset (F, 1);} {het dossier, {% I +}, als ioresult < > 0, beëindigd; (de vermelde documenten bestaan?}，注册：= false；} {注册，如果不注册，开始， Writeln（与# 39；archpeek 0.01alpha [注册]版权所有1993史提夫Wierenga和# 39；）；，延迟（200）；最后，；， SL：= 0；Z = 0；totalu：= 0；totalc：= 0；} {初始化变量， SSS：=甘（arjfile）；{有} ARJ文件名， Writeln（与# 39；压缩文件名：与# 39；，SSS）；，写（与# 39；名称长度大小保存方法日期时间及# 39；）；， Writeln（与# 39；____________________________________________________________________________和# 39；）；， FF：= 0；，重复， FF FF +：= 1；，寻求（F，SL）；， blockread（F，fhdr ^，sizeof（afheader），NR）；{读头}, 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( d2. SEC); en, tot slot, ;, totalu:= totalu + fhdr ^. Origsize; - verhoging van de totale omvang van de niet - }, totalc:= totalc + fhdr ^. Packsize; - verhoging van de totale omvang van compressie), herhalen, blockread (F, b, 1); en tot b = 0;, blockread (F, fhdr ^. Filecrc, 4); - de afgelopen CRC) documenten, blockread (F, nr. 2); , SL:= FilePos (f) + fhdr ^. Packsize; {we waar is doc?}, einde;, tot (fhdr ^. Hdrsize = 0); - geen documenten meer?}, 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 (1: schrijven. Min, en': en'); en, tot slot, ;, zaak dt1.sec, 0... 9: methode (en' 0 en 39, #; 1. SEC); 10, ... 59: methode (1. SEC); en, tot slot, ;, gesloten (f), (fhdr behandeling; ); {}, aan het einde van de functie; doen, GAN (arjfile: string: string); var, de directeur: dirstr;, naam: namestr; , EXT:extstr; beginnen, test (arjfile, catalogi, de naam, het is); GAN: naam, = + uitbreiding;,, voorbij, voorbij.

Previous:- bios

Next Page:Verstop het Oude Testament,