Colocando Backup em sistemas com tabelas Paradox

Vamos utilizar o componente ZipMaster para colocar um formulário que faça backup das tabelas Paradox do sistema

1º- Baixe e descompacte o arquivo zip do componente ZipMaster, através do link abaixo. Ele deve ser salvo no diretório C:\Arquivos de programas\Borland\Delphi7\

Clique aqui para baixar a instalação do componente.

2º - Será necessário instalar dois componentes. Abra o Delphi e no menu -Component -Install Component - Escolha a página Into New Package.

- Em Unit File Name, clique no Browse e selecione os arquivos ZipMstr.pas e SortGrid.pas.

- Em Package File Name e Package Description, coloque ZipMaster. - Clique em Ok - Clique em Yes.

- Feche e Salve o pacote.

- Agora em -Tools -Environment Options -Library -No Library path você deve adicionar o caminho de onde descompactou o componente. 

3º - Copie os arquivos ZipDll e ZipSFX.bin da pasta onde você descompactou o componente para a pasta do seu sistema.

4º - Baixe e descompacte o arquivo zip com um Formulário pronto para fazer backup (link abaixo). Salve e descompacte dentro do diretório do sistema.

Clique aqui para baixar o formulário.

5º - Abra o sistema e vá no menu -Project -Add To Project  e escolha FBackup.

6º - Crie uma opção no menu para Backup e nela coloque o código: frmBackup.ShowModal.

Se tudo der certo, é só compilar.

Obs.: O formulário está configurado para fazer backup das tabelas que estão no mesmo diretório do sistema (.exe). Caso queira modificar, altere a seguinte linha no procedimento Procura:

    if FindFirst(ExtractFilePath(Application.ExeName)+'\*.*', Arquivos, Procurar) = 0 then

Por:

    if FindFirst(ExtractFilePath(Application.ExeName)+'\DIRETORIO\*.*', Arquivos, Procurar) = 0 then

Altere também a linha:

              ZipMaster1.FSpecArgs.Add(ExtractFilePath(Application.ExeName)+'\'+Procurar.Name);

Para:

              ZipMaster1.FSpecArgs.Add(ExtractFilePath(Application.ExeName)+'\DIRETORIO\'+Procurar.Name);

Onde DIRETORIO deve ser substituído pelo nome da pasta onde estão as tabelas.

Esse backup criará um aquivo zipado com o nome Backup mais a data. Quando for necessário recuperar as informações de um backup basta descompactar o arquivo da data desejada em qualquer software de descompactação.