Utileria para Respaldar y Restaurar Bases de Datos Firebird

Hola
Gracias amigo por el aporte, por supuesto que es útil.
Saludos

Yo si he bajado el código pero no lo puedo probar porque no tengo el IBBackupService  , pero se ve bastante bien.

Solo dos sugerencias (para la versión 2.0  ): guardar los parámetros en un ini y poder iniciar el proceso desde la linea de comandos, así seria sencillo crear una copia automática utilizando la "Tareas programadas" de windows.

Las tareas programadas lo que hacen es ejecutar una linea de comando, esto quiere decir que si el ejecutable recibieras como parametro los valores de configuracion y se ejecutara automaticamente al abrir no deberia tener mayor problemas

Hola Eliseo... gracias por el aporte 
Solo una pregunta, que opciones usas para crear el backup... sería bueno que el programa tuviera las opciones en pantalla también 

     DatabaseName
     BackupFile
     Protocol
     ServerName
     Params
     Active
     ServiceStart

function GetParamVal(const TaggedParm : string;
                     IgnoreCase : boolean = true) : string;
var Retvar : string;
    i,Len : integer;
    Comp1,Comp2 : string;
begin
  RetVar := '';
  Comp1 := TaggedParm + '=';
  if IgnoreCase then Comp1 := UpperCase(Comp1);
  Len := length(Comp1);
 
  for i := 1 to ParamCount do begin
      Comp2 := copy(ParamStr(i),1,Len);
      if IgnoreCase then Comp2 := UpperCase(Comp2);
      if (Comp1 = Comp2) then begin
         RetVar := copy(ParamStr(i),Len + 1,length(ParamStr(i)));
         break;
      end;
  end;
 
  Result := RetVar;
end;

FBBackRestore /DB=C:\DATOS\BASE.FDB /BK=C:\DATOS\BASE.FBK /SN=MISERVIDOR /U=MIUSUARIO /PW=MIPASSWORD

Donde:

/DB  Nombre de la Base de Datos (Ruta y nombre)
/BK  Nombre de archivo respaldo (Ruta y Nombre)
/SN  Nombre del servidor
/U    Usuario
/PW  Contraseña

procedure TForm1.FormShow(Sender: TObject);
begin
  if ParamCount > 0 then begin
     edDB.Text := GetParamVal('/DB');
     edDBBK.Text := GetParamVal('/BK');
     edServerName.Text := GetParamVal('/SN');
     edUser.Text := GetParamVal('/U');
     edPassw.Text := GetParamVal('/PW');
  end;
end;

Simple y preciso 

Ahora leyendo mejor el comentario de seoane tambien existe la posibilidad de un archivo Ini, lo qu ete ahorraria los parametros y cargarias los valores ya guardados.   En este caso solo pasarias un parametro llamado Auto que le indicaria al programa que se ejecute con los valores ya guardados

{
  Los parámetros son los siguientes:
 
/DB   Nombre de la Base de Datos (Ruta y nombre)
/BK   Nombre de archivo respaldo (Ruta y Nombre)
/SN   Nombre del servidor
/P    Protocolo (0=Local, 1=TCP)
/U    Usuario
/PW   Contraseña
/F    Función (B=Backup, R=Restore)
 
}
procedure TForm1.FormShow(Sender: TObject);
begin
  if ParamCount > 0 then begin
     edDB.Text := GetParamVal('/DB');
     edDBBK.Text := GetParamVal('/BK');
     edServerName.Text := GetParamVal('/SN');
     cbProtocol.ItemIndex := strtoint(GetParamVal('/P'));
     edUser.Text := GetParamVal('/U');
     edPassw.Text := GetParamVal('/PW');
     Accion := GetParamVal('/F');
     case Accion[1] of
        'B' : Respaldar.Execute;
        'R' : Restaurar.Execute;
     end;
  end;
end;

FBBackRest.exe /DB=C:\FBBackup\BASE.FDB /BK=C:\FBBackup\BASE.FBK /SN=MYPC /U=USUARIO /PW=password /P=1 /F=B

Hace ya algun tiempo uso este codigo de Eliseo.
En una aplicacion lo deje como utileria para el usuario comun y corriente, el que solo sabe operar el programa aplicacion y le ha funcionado todo bien. usar el gback es mas engorroso para un usuario comun ( si para uno lo es...jeje yo soy chico windows, el DOS y las lineas de comando me hacen sufrir)