Extrair arquivo RAR com seu programa.

[Set~ 0]

- INTRODUÇÃO

Você irá primeiramente precisar do DFUnRAR.

Irei deixar o link no final do tópico.

 

 

- INSTALAÇÃO DO DFUNRAR.

Após baixar o DFunRAR você deverá extrai-lo em uma pasta qualquer.

Abra a pasta na qual você o extraiu, depois abra a sub-pasta "***" e clique em "DFUnRAR.pas"

Com o Delphi aberto, clique em "Component" e depois em "Install Component..."

 

 

Clique na aba "Into New Package"

 

 

Preencha os 2 ultimos campos como na foto acima.

Logo depois, clique em "OK" e em "Yes" como mostra a foto abaixo:

 

 

Agora o componente foi instalado, e irá aparecer uma aba chamada "DFrisch".

 

 

- CRIANDO O PROGRAMA

Crie um novo projeto no Delphi.

Adicione 3 *****s, 2 Button, 2 SpeedButton, 1 OpenDialog, 2 Edit, DFUnRAR e Gauge (aba Samples)

Agora mude as propriedades para:

 

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

• Entre
• ou
• Cadastre-se

 

Organize os componentes de acordo com a foto

 

 

Adicione a Unit "untUnRAR" e a Unit "QDialogs".

 

Na seção Public do Form1 às variáveis:

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

• Entre
• ou
• Cadastre-se

 

No evento "OnCreate" do Edit1 adicione:

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

• Entre
• ou
• Cadastre-se

 

E no evento "OnDestroy" adicione:

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

• Entre
• ou
• Cadastre-se

 

No evento "OnClick" do Button1 adicione:

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

• Entre
• ou
• Cadastre-se

 

No evento "OnClick" do Button2 adicione:

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

• Entre
• ou
• Cadastre-se

 

No evento "OnClick" do SpeedButton1 adicione:

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

• Entre
• ou
• Cadastre-se

 

E no evento "OnClick" do SpeedButton2 adicione:

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

• Entre
• ou
• Cadastre-se

 

Agora mude a propriedade "CanProgress" do DFUnRAR1 para "True".

No evento "OnProgress" do DFUnRAR1 adicione:

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

• Entre
• ou
• Cadastre-se

 

 

- DICA

Copie a dll "UnRAR.dll" para o diretório do seu aplicativo.

 

- DOWNLOAD

[DOWN]

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

• Entre
• ou
• Cadastre-se

[/DOWN]

 

- SCAN

[sCAN]

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

• Entre
• ou
• Cadastre-se

[/sCAN]

[gaabscps 7]

Basicamente, usar as funções de um componente que faz tudo... Não gosto muito deles, mas vlw por repassa-lo

[Grilo~* 0]

Basicamente, usar as funções de um componente que faz tudo... Não gosto muito deles, mas vlw por repassa-lo

Simples, pegue a função da unit que irá usar e ponha em seu projeto '-'

 

@tópico

Estou tendo um erro aqui :

SetRARPassword;

NA hora de extrair..

Access Violation..

[Set~ 0]

@tópico

Estou tendo um erro aqui :

SetRARPassword;

NA hora de extrair..

Access Violation..

 

Você tentou colocar a dll UnRAR.dll na mesma pasta do seu aplicativo?

Esse pode ser o erro, porque sem ela, ele não funciona...

[-Vitinho™ 1]

Pra que isso ? Se existe o proprio WINRAR

kkkkk não vo perde meu tempo fazendo isso

se tenho o WIN qe owna todos '-'

[gaabscps 7]

É muito útil, você que não percebeu.

Como por exemplo, programa de download que após baixar já vai extrair os arquivos.

 

Por favor, não venham depois dizer "só para isso". Pois é apenas um exemplo; não irei perder tempo citando trocentos aqui

[Set~ 0]

Sei que existe o WinRAR.

Mas eu criei esse tópico com a intenção de ajudar.

Aos que gostaram, eu agradeco.

Aos que não gostaram, não posso fazer nada.

[Grilo~* 0]

Sim, imagem do erro :

Não sei a que se deve o erro,

Refarei ele...

@Vitinho

Não pense dessa forma.

Tudo que se vê é bom refazer, além de aprender você um dia saberá fazer,

Não faça com a unit pronta, faça sua própria unit.

[4444leozinho4444 0]

Mesmo tendo o winrar muita gente cria se fosse pensar assim ninguém usaria o delphi.

[Set~ 0]

Sim, imagem do erro :

Não sei a que se deve o erro,

Refarei ele...

 

Bom, vou faze-lo novamente e irei te passar os arquivos/source para você ver se arruma.

Quando estiver pronto eu edito aqui.

[Grilo~* 0]

Bom, vou faze-lo novamente e irei te passar os arquivos/source para você ver se arruma.

Quando estiver pronto eu edito aqui.

Ok,

Porém o Código está idêntico ao do tópico,

Olhe:

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

• Entre
• ou
• Cadastre-se