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!
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: