Compactar e Descompactar arquivos com Winrar

[~~Surfistinha~~ 13]

Adicione 2 Buttons

 

 

O Button1 será para Compactar, coloque:

 

WinExec(PChar('C:\Arquivos de programas\WinRAR\WinRAR.exe a C:\ProCode.rar C:\WebCheats.txt'),SW_Normal);

 

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

 

 

O Button2 será para Descompactar, coloque:

WinExec(PChar('C:\Arquivos de programas\WinRAR\WinRAR.exe e C:\ProCode.rar C:\'),SW_Normal);

 

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

 

 

Observação: O Winrar deve está instalado!

 

 

 

By's √ỉ¢ŦσЯ_×ρ e Surfistinha

[SaYaDiN² 1]

Muito bom, mas cade os Créditos? Leeacheer U_u

[~~Surfistinha~~ 13]

Muito obrigado pelo elogio

 

 

Ja coloquei os devidos Créditos