[Resolvido] Descompactar Winrar (Comando)

[richard1994x 0]

Quero saber se existe um comando para descompactar um arquivo em extensão .rar?

[Fabriciocbj 0]

//Você pode utilizar essa função que criei

 

 

Function TForm1.Descomprime(sArquivo: String):TStringList;

 

var

Count: Integer;

NewFile: TMemoryStream;

InFile : TMemoryStream;

ZStream : TDecompressionStream;

Buffer : array[0..BufferSize]of Byte;

sTexto :TStringList;

begin

NewFile := TMemoryStream.Create;

InFile := TMemoryStream.Create;

try

 

InFile.LoadFromFile(sArquivo);

InFile.Seek(0,0);

try

 

ZStream := TDecompressionStream.Create(InFile);

try

repeat

Count := ZStream.Read(Buffer, BufferSize);

if Count <> 0 then

NewFile.WriteBuffer(Buffer, Count)

else

Break;

until count <= 0;

NewFile.SaveToFile('c:\escrito.txt');

NewFile.Seek(0,0);

sTexto := TStringList.Create;

sTexto.LoadFromStream(NewFile);

ShowMessage(sTexto.Text);

Result := sTexto;

finally

ZStream.Free;

end;

finally

NewFile.Free;

end;

finally

InFile.Free;

end;

end;

[richard1994x 0]

Resolvido.