Compactar arquivo - Delphi

[Owner 8]

Olá,

Eu fiz um pequeno código e simples, que compacta arquivo pelo WinRAR, então para que funciona terá que ter o WinRAR instalado, vamos começar:

Primeiramente declare as uses :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Depois adicione um Save Dialog e um Open Dialog

Adicione 1 button de preferência, e depois adicione o código bem simples:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Explicação do código:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

A hora recebe o horario do seu PC ( windows ) e o mesmo com a Data, o Arq ( que eu quis dizer Arquivo ) é o arquivo que será compactado ! Já o Dest ( que eu quis dizer Destino ) é onde o arquivo será compactado (:

Nome irá pegar a Hora e a Data para ficar como o nome do arquivo, assim nunca fica o nome igual

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Esse código também é simples:

O Save Dialog pega as informações para salvar logo aseguir, depois na 4º linha, você terá o código principal, onde chamará o WinRAR e fará que ele compacte e depois feche ( logo terminando a compactação )

Aviso: O programa não seleciona Pasta, se alguém conseguir compartilhe aqui porfavor !

Somente isso, explore o código, você pode descobrir varias coisas, você pode adicionar um button e um edit, e fazer o button abrir o opendialog para escolher o arquivo !

ABUSE DA CRIATIVIDADE

Espero que tenha gostado & Abrasz

[TH3 CH4OS 10]

Interessante essa função , sera que teria como fazer o inverso desconpactar!?

 

Levou meu Thanks!:D

[Owner 8]

Sim tem jeito sim !

Só não postei (:

Se quise, pode pedir

É que eu to com preguiça de escreer hoje

( rsrsrsrsrsrsrs )

[Vator 11]

Posta aí por favor,quando a preguiça for embora.

[Owner 8]

Tá, prontiinho ↓

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Prontiinho (:

[DarkSj 0]

obrigado, acho qe vou fazer um compactador/descompactador de arquivos (:

foi muito util...

[Owner 8]

Obrigado a você !

Se fazer coloque as dicas aqui (:

na area é claro

beleza ?

[DarkSj 0]

Obrigado a você !

Se fazer coloque as dicas aqui (:

na area é claro

beleza ?

 

siim sim, se eu fizer, vou botar aqii

mas n sei se vou :P

[Owner 8]

Ok !

Eu fiz umas coisas acho que vou postar aqui (:

Abrasz