Buscar por:

Como visualizar arquivos arj?

Código

Function ConverterAtributos (A: Integer): String; 

begin 

Result:= '---W'; 

if A and faArchive <> 0 then 

Result[1]:= 'A'; 

if A and faSysFile <> 0 then 

Result[2]:= 'S'; 

if A and faHidden <> 0 then 

Result[3]:= 'H'; 

if A and faReadOnly <> 0 then 

Result[4]:= 'R'; 

end; 

procedure TFormPrincipal.BotaoAbrirClick (Sender: TObject); 

var 

P : Integer; 

Info: TInfoArj; 

Arj : TArj; 

begin 

if OpenDialog.Execute then begin 

Caption:= OpenDialog.FileName; 

Arj := TArj.Create; 

Arj.LoadFromFile (OpenDialog.FileName); 

Lista.Items.Clear; 

Lista.Items.BeginUpdate; 

for P:= 0 to Arj.Lista.Count-1 do begin 

Info:= Arj.Buscar (P); 

with Lista.Items.Add do begin 

Caption:= Arj.Lista.Strings[P]; 

SubItems.Add (IntToStr (Info.Descompactado)); 

SubItems.Add (IntToStr (Info.Compactado)); 

SubItems.Add (DateTimeToStr (Info.Modificado)); 

SubItems.Add (ConverterAtributos (Info.Attributos)); 

SubItems.Add (IntToHex (Info.CRC, 8)); 

end; 

end; 

Lista.Items.EndUpdate; 

Arj.Free; 

end; 

end;