Criando Backup com o auxílio do Winzip

Fazer backup de arquivos é o processo mais importante, pois em caso de problemas você não terá um prejuízo tão grande.
Nesse artigovou mostrar como fazer um pequeno sistema de backup, em poucas linhas de código, buscando e gravando arquivos em um local determinado no código-fonte.
Use os seus conhecimentos avançados para implementar essa dica no seu aplicativo ou criar um aplicativo capaz de fazer os backups.

Inicie um novo aplicativo e insira os seguintes componentes:

1Button

Antes de colocarmos o código responsável pelo backup, é necessário especificar em uses que usaremos uma API, para poder fazer o sistema funcionar. Coloque então Shellapi dentro da cláusula uses.

No evento OnClick do componente Button, coloque o seguinte código:

ShellExecute(0,nil,'winzip32.EXE', '-a c:backup.zip C:*.txt',nil,sw_show);

Exit;

Entendendo o código:

O comando ShellExecute tem a seguinte assinatura:

function ShellExecute(hWnd: HWND; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): HINST;

Onde:

hWnd: Handle da Janela que está executando o Comando.
Operation: Tipo de operação que se quer executar. Pode ser 'open', 'print' ou 'explorer'
FileName: O arquivo que se quer abrir.
Parameters: Parâmetros a serem passados para o FileName que vai ser aberto. Este parâmetro é útil no caso de se passar no FileName o caminho de um executável.
Directory: O diretório onde a aplicação deve executar.
ShowCmd: indica o tipo de janela que deve ser aberta. Podemos utilizar por exemplo SW_HIDE (deixa a janela invisível), SW_MAXIMIZE (janela maximizada), SW_MINIMIZE (janela minimizada), SW_SHOWNORMAL (abre a janela restaurada e ativa).
Retorno: A função possui erro quando o retorno é menor ou igual a 32. Exemplos de erros que podem ser testados são ERROR_FILE_NOT_FOUND (arquivo não encontrado), ERROR_PATH_NOT_FOUND (caminho não encontrado), SE_ERR_ACCESSDENIED (o programa não tem direito para acessar o arquivo/programa requisitado), SE_ERR_ASSOCINCOMPLETE (arquivo requisitado não possui associação definida), SE_ERR_SHARE (Violação de Compartilhamento), entre outros erros que podem ser mapeados.