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

XSystemX

Honrado XPZ
14 de Julho de 2012
83
43
18
24
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:
  • Like
Reactions: xSidnei