Fórum BackUP e Restaurar #235365

melhor esquema é utilizar o próprio winzip, que pode te criar um backup sempre que o sistema for fechado. com algumas incrementações, pode renomear sua cópia de backup com a data do dia, ou ainda com a data e a hora do dia, lembrando que é necessário ter o winzip instalado no micro e registrado.
[u:632055e1d4][b:632055e1d4]Para criar um backup no disquete[/b:632055e1d4][/u:632055e1d4]
procedure TfrmPrincipal.button1Click(Sender: TObject);
begin
if not FileExists(´A:\nul´) then
ShowMessage(´Insira um disco formatado na unidade A: e efetue o Backup!´)
else
begin
ShellExecute(0,nil,´winzip32.EXE´, ´-a a:\backup.zip C:\SCP\tabelas\*.db´,nil,sw_show);
Exit;
end;
end;

[u:632055e1d4][b:632055e1d4]Para restaurar o backup do disquete[/b:632055e1d4][/u:632055e1d4]
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;

na hora de compilar deu erro na linha shellexecute falta algo para colocar e como posso fazer com hora e data o backup heim ? Obrigado cara !!!!

Amigo está dando o seguinte problema depois que eu coloquei em uses shellapi
unterminated string o que é esse problema sabe ????

Obrigado consegui só tinha uma aspas a mais obrigado mesmo cara ! ajudou muito ok !