Criar E Restaurar Backup Pelo Delphi Utilizando O Winzip

[Marcos-rj]

OBS: NECESSÁRIO TER O WINZIP INSTALADO.

// criar o backup no disquete 
procedure TfrmPrincipal.button1Click(Sender: TObject); 
begin 
if not FileExists('A:\nul') then // verifica se existe um disco na unidade A: 
ShowMessage('Insira um disco formatado na unidade A: e efetue o Backup!') // caso não exista mostra a mensagem 
else 
begin 
ShellExecute(0,nil,'winzip32.EXE', '-a a:\backup.zip C:\SCP\tabelas\*.db',nil,sw_show); // existindo o disco então chama o Winzip e começa a compactar dentro do disquete 
Exit; // fecha o winzip após o términino da compactação 
end; 
end; 

// restaura os arquivos 
procedure TfrmPrincipal.button2Click(Sender: TObject); 
begin 
if not FileExists('A:\nul') then 
ShowMessage('Insira um disco com o Último Backup na unidade A: e efetue a Restauração!') 
else 
begin 
ShellExecute(0,nil,'winzip32.EXE', '-e a:\backup.zip C:\SCP\copia\',nil,sw_show); 
Exit; 
end; 
end;

[DELPHI-Man32]

não funciona se não colocar na seção USES a use 'ShellApi'

fiquem atentos. t+