[Tutorial - Basicão] Compactar e Descompactar arquivos com Winrar

14 de Julho de 2012
83
42
18
24
#1
Adicione 2 Buttons


O Button1 será para Compactar, coloque:

WinExec
(PChar('C:Arquivos de programasWinRARWinRAR.exe a C:nibzxd.rar C:xpzone.txt'),SW_Normal);

No lugar de xpzone.txt mude para o nome do arquivo que deseja compactar


O Button2 será para Descompactar, coloque:

WinExec(PChar('C:Arquivos de programasWinRARWinRAR.exe e C:nibzxd.rar C:'),SW_Normal);

Mude o nibzxd.rar para o nome do .rar que será extraido


Observação: O Winrar deve está instalado!
 
Editado por um moderador:
Curtidas: xSidnei