How to : View contents of an arj file

View contents of an arj file

How to display the contents of an ARJ file

Contributor: SWAG SUPPORT TEAM

Program ReadArj;

Uses

Crt,

Search;

Const

ArjID = #96#234;

Type

Array10 = Array[1..10] of Byte;

Array12 = Array[1..12] of Char;

AFileRec = Record

FileDate : LongInt;

CompressedSize : LongInt;

originalSize : LongInt;

DudSpace : Array10;

FileName : Array12

end;

Array60K = Array[1..61440] of Byte;

Var

Buffer : 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)