Fórum AJUDA PARA MELHORAR CÓDIGO (DELPHI). #588598

procedure TFrm_principal.btn_copiaClick(Sender: TObject);
var
  Origem, Destino: string;
  SaveDialogo: TSaveDialog;
begin
  SaveDialogo := TSaveDialog.Create(Application);
  try
    if MESSAGEBOX(Application.Handle, 'Deseja Fazer o Backup do Banco de Dados?',
      'Por favor, confirme:', MB_ICONQUESTION + MB_YESNOCANCEL + MB_DEFBUTTON2) = ID_YES then
    begin
      SaveDialogo.Filter := 'Microsoft Access|*.mdb';
      SaveDialogo.DefaultExt := '.mdb';

      if SaveDialogo.Execute then
      begin
        Origem := 'C:\\\\PROTOCOLOEH\\\\BDprotocolo.mdb';
        Destino := SaveDialogo.FileName;

        if CopyFile(PChar(Origem), PChar(Destino), false) then
          ShowMessage('Backup efetuado com sucesso.')
        else
          ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
      end;
    end;
  finally
    FreeAndNil(SaveDialogo);
  end;
end;