Button Backup y Restore Firebird

[pgranados]

Empezado por Casimiro Notevi

Depende de los componentes que estés usando, pero más o menos:

Código Delphi [-]
ibdatabase.close;
ibdatabase.active:=false;

Que tal, el código que estoy usando para generar el respaldo es:

Código Delphi [-]

procedure TForm4.Button1Click(Sender: TObject);
var psFichero,psinstruccion:string;
begin
  psFichero:='C:\Program Files (x86)\Firebird\Firebird_3_0\gbak.exe';
  psInstruccion:='-v -t -user SYSDBA -password masterkey  "C:\Test.FDB" "C:\Test.FBK"';
  ShellExecute(Handle, nil, PChar(psFichero), PChar(psInstruccion), nil, SW_HIDE);