• Bem vindo à nossa comunidade - Quer se juntar ao resto dos nossos membros? Registre-se*Registros aprovados pela adminitração

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

XSystemX

Usuário XPZ
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:
Topo Bottom