Buscar por:

Criar e restaurar backup pelo delphi utilizando o winzip

Código

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:SCPtabelas*.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:SCPcopia',nil,sw_show); 

Exit; 

end; 

end;