Buscar por:

Backup e restauração .arj (versão melhorada)

Código

{Backup e Restauração .ARJ (versão melhorada)

Maneira muito fácil e bem eficiente de fazer Backup’s no Delphi 

é ARJ.EXE (antigo compactador e descompactador do MS DOS da época do 386).}

//1) Passo: ARJ

{- Baixe o ARJ.EXE em português, um compactador bem leve 

(147 kb) e muito poderoso, download nesse Linke: 

http://www.sendnet.com.br/download/ARJ.EXE

- Coloque ARJ.EXE no diretório C:WINDOWSsystem32}

//2) Passo: Backup no disquete

begin

WinExec(PChar('command.com /c arj a -t -I1 -vva -r a:Compacta.Arj c:ProjetoDados*.*'),SW_SHOWNormal);

end;

//- Onde: (c:ProjetoDados*.*') é o caminho para o diretório do banco de dados

//3) Passo: Restauração

begin

WinExec(PChar('command.com /c arj x -y -I1 -vva -r a:Compacta.Arj c:'),SW_SHOWNormal);

end;

//4) Passo: Backup no HD:

begin

WinExec(PChar('command.com /c arj a -t -I1 -vva -r c:ProjetoCompacta.Arj c:ProjetoDados*.*'),SW_SHOWNormal);

end;

//- Onde: (c:ProjetoCompacta.Arj) é o caminho onde criará o backup de nome 'Compacta.arj')

//5) Passo: Restauração

begin

WinExec(PChar('command.com /c arj x -y -vva -r c:ProjetoCompacta.Arj c:'),SW_SHOWNORMAL);

end;

{OBS

o ARJ não grava nomes de arquivos com mais de 8 caracteres. 

EX: Se um arquivo de nome CADASTRODECLIENTES for compactado pelo ARJ ele 

passara a se chamar CADAST~1, mas ao fazer a restauração, ele voltara ao nome 

original, a menos que você “delete” o arquivo CADASTRODECLIENTES do banco original.}