descompactar um arquivo usando Delphi

[News Brasil]

conseguir com ajuda de umigo aqui compactar gostaria de saber como descompactar

procedure TForm1.Button1Click(Sender: TObject);
var
AFile: string;
LocateFile: string;
begin
AFile := ‘C:\su\bruno.txt’;
LocateFile := ‘C:\su\bruno.txt’+ FormatDateTime(‘yyyy-mm-dd’, Now) +’.rar’;

winexec(PAnsiChar(AnsiString(‘”C:\Program Files\WinRAR\WinRAR.exe” -ep1 a -p123456 ‘+ LocateFile +’ “‘+ AFile + ‘”‘)), SW_HIDE);

 

[Sérgio Assunção]

@News Brasil
Dependendo da versão do Delphi, você já tem isso de forma nativa.
Veja o tutorial abaixo...
http://www.andrecelestino.com/delphi-compactacao-de-arquivos-com-a-classe-nativa-tzipfile/

[News Brasil]

sim mais eu quero descompactar com senha !