GERANDO ARQUIVO .ZIP

Delphi

17/12/2003

Alguem sabe como fazer isso...
quando sair da minha aplicação, gerar um arquivo .ZIP dos arquivos .db
???????????????????????????


Pkarling

Pkarling

Curtidas 0

Respostas

Marconi

Marconi

17/12/2003

Coloque isto

WinExec(PChar(´C:\Arquivos de Programas\WinZip\WinZip32 -min -a -r -ex ´´ + diretorio+´\´+destino+
´´ ´+´´´+diretorio+´\´+origem+´´´),1);

Onde Origem é o nome do arquivo de origem (que pode ser *.db ou até *.* para juntar todos os arquivos do banco de dados.

Destino é o nome do arquivo zip que sera gerado.

Subustitua Diretório, pelo seu diretório.

Este comando utiliza o próprio Winzip para gerar os zips.

Marconi


GOSTEI 0
Marconi

Marconi

17/12/2003

Ah!

Não se esqueça de zipar também os arquivos auxiliares, tais como Indexes, memos, etc.. Senão o seu backup acaba não servindo para nada.

Marconi


GOSTEI 0
POSTAR