, hier en' een procedure voor de vaststelling van de aard van de belangrijkste dossiers, Bron: buit team {,   > ik' m op zoek naar header formaat beschrijving,   > alle populaire dossiers, namelijk. ZIP. Lzh, boog.. ARJ, enz.   > ik wil alleen kan lezen, al deze titel,   > archieven, is niet om ze te manipuleren.Iedereen weet dat,   > dit kan?In de' een procedure voor de vaststelling van de aard van de belangrijkste dossiers, ik' hebben verscheidene, maar de oorspronkelijke bron is van ECHO, dat... De oorspronkelijke auteur en' naam heeft verloren.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);  ,     terug: = getarctype (naam),  ;     situatie terug,           ARJ:writeln (naam, en' = ARJ en');  ,         witte: writeln (naam en&#= 39; Pakistan');  ,         lzh: (naam en' = lzh en');  ,         zijn: writeln (naam, en' = - en');  ,         writeln dierentuin: (naam en' = de dierentuin en');  ,         Postcode: writeln (naam, en' = postcode en');  ,         onbekend: writeln (naam, en' = onbekend.En'),           andere,               Writeln (en' dossier niet gevonden en' aan het einde van  ,  );  ; aan het einde van   {}, als andere,  ,     Writeln (en&#geen parameters en de' 39;;), een einde te maken aan de.,