, her og' et program, der fastlægger de vigtigste arkiv former., bidragyder: swag støttegruppe, {,   > jeg ' m efter beskrivelser af de formater, af personer,   > alle populære arkiv filer, dvs. zip. arc. lzh,. arj osv.   > jeg vil bare gerne være i stand til at læse alle disse personer,   > arkiver, ikke nødvendigvis at manipulere med dem.- ved nogen,   > hvor de kan være?her og' et program, der fastlægger de vigtigste arkiv typer. jeg ' har lavet et par tilføjelser, men den oprindelige kilde var fra, et signal om echo - den oprindelige ophavsmand ' navn er siden blevet tabt.To use the Procedure, just call it as follows:,  If GetArcType(FileName.Ext)=Zip then...., }, Uses,   Dos;, Type,   ArcType = (FileError, Unknown, Zip, Zoo, Arc, Lzh, Pak, Arj);, Function GetArcType(FName : String) : ArcType;, Var,   ArcFile : File of Byte;,   i : Integer;,   Gat : ArcType;,   c : Array[1..5] of Byte;, begin,   Assign(ArcFile, FName);,   {$I-},   Reset(ArcFile);,   {$I+},   if IOResult <> 0 then,     Gat := FileError,   else,   if FileSize(ArcFile) < 5 then,     Gat := FileError,   else,   begin,     For i := 1 to 5 do,       Read(ArcFile, c[i]);,     Close(ArcFile); , ,     if ((c[1] = $50) and (c[2] = $4B)) then,       Gat := Zip,     else,     if ((c[1] = $60) and (c[2] = $EA)) then,       Gat := Arj,     else,     if ((c[4] = $6c) and (c[5] = $68)) then,       Gat := Lzh,     else,     if ((c[1] = $5a) and (c[2] = $4f) and (c[3] = $4f)) then,       Gat := Zoo,     else,     if ((c[1] = $1a) and (c[2] = $08)) then,       Gat := Arc,     else,     if ((c[1] = $1a) and (c[2] = $0b)) then,       Gat := Pak,     else,       Gat := Unknown;,   end;,   GetArcType := Gat;, end;, Var,   FileName : String;,   Return : ArcType;,   {ArcType = (FileError,Unknown,Zip,Zoo,Arc,Lzh,Pak,Arj)}, begin,  if ParamCount = 1 then,  begin,    FileName := Paramstr (1),     tilbage: = getarctype (filnavn),     sag tilbage,       arj: writeln (filnavn, og' = arj '),       pak: writeln (filnavn, og' = pak '),       lzh: writeln (filnavn, og' = lzh '),       er: writeln (filnavn, og' = en '),       zoo: writeln (filnavn, og' = zoo '),       zip: writeln (filnavn, ' = en '),       ukendt: writeln (filnavn, og' = ukendt.'),       andet,         writeln (' fil fundet '),    ;,   ende (hvis},   andet,    writeln (' ingen parameter '),.,