[Delphi] Zipar e Extrair arquivos

[TH3 CH4OS 4]

Vi em diversos forums a dificuldade de zipar e extrair arquivos com Delphi , na maioria dos casos vc teria que usar algum componente , olhando isso crie esta simples GAMBIARRA que ira te ajudar a zipar e extrair arquivos do winrar

 

Declare nas uses : ShellApi

 

Para Zipar:

 

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

• Entre
• ou
• Cadastre-se

 

Para Extrair o Arquivo:

 

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

• Entre
• ou
• Cadastre-se

 

 

Créditos : TH3 CH4OS

[Ryokusei 14]

Tópico editado à pedido do autor.

[elinson2 1]

ótimo tópico me ajudou muito !

Como sou iniciante deixarei para fazer depois !

Tentei compilar e incrivelmente nao deu erro =]

Obrigado por compartilhar !

Não sei se você sabe , ou se alguêm souber me dizer como eu posso colocar relogio no meu injetor que eu estou criando !

Por favor me dizer até mais !

:amor:

[~OwneR~ 5]

O problema é se o usuário não tiver WinRar, ou estiver em outro diretório...

[thekila22 0]

Como faço para ele tipo Abrir o arquivo pelo programa para extrair e compactar ?

[Surfistinha£ 15]

So mudar o local do diretório para um edit e nele colocalizar o winar :D

 

Otimo turtorial

 

Mt bom ta de parabens!

[flaviohero 1]

ótimo tópico me ajudou muito !

Obrigado por compartilhar !

bom esta com o code certo.

Mais poderia explicar para membros iniciantes.

Como que usa e que componentes por né.

[thekila22 0]

So mudar o local do diretório para um edit e nele colocalizar o winar :D

 

Otimo turtorial

 

Mt bom ta de parabens!

 

 

Mais eu nao sei

 

eu queria aquele Abrir Arquivo sabe ? Se alguem puder ajudar !

[TH3 CH4OS 4]

Bom o componente eu n me lembro aonde que tem , mas vc pesquisando no google vc encontra rapidinho ;)!

[thekila22 0]

procurei e não achei nada :S

 

foda.

[Mestre_Vator 0]

Abrir arquivo = openDialog.