COMPACTAR E DESCOMPACTAR ARQUIVOS E PASTAS PELO DELPHI 2010

Hoje tive grande dificuldade, precisava compactar um alguns arquivos via programação utilizando
Delphi 2010, depois de muitas tentativas e pesquisas finalmente cheguei a esse código...

O Winrar deve estar instalado.

ADICIONE AO USES

ShellAPI

PARA COMPACTAR

winexec(PAnsiChar(AnsiString('"C:\Arquivos de programas\WinRAR\WinRAR.exe" a '+destino+' "'+origem+'"')),sw_normal);

PARA DESCOMPACTAR

winexec(PAnsiChar(AnsiString('"C:\Arquivos de programas\WinRAR\WinRAR.exe" e '+destino+' "'+origem+'"')),sw_normal);

Espero te ajudado ! Ate +