TIBBackupService

Com um Save Dialog eu uso essa rotina..

try
SaveDialog1.FileName := ´S1´ + FormatDateTime(´ddmmyy´,Date) + ´.bck´;
if SaveDialog1.Execute then
begin
With IBBackupService1 do
begin
Cursor := crHourGlass;
Dm.SQLConexao.Connected := False;
Active := False;
Params.Clear;
ServerName := ComputerName; //Nome ou IP do Computador
Protocol := TCP;
DatabaseName := ´c:\Banco.gdb´;
Params.Clear;
Params.Add( ´User_Name=SYSDBA´ );
Params.Add( ´Password=masterkey´ );
BackupFile.Clear;
BackupFile.Add( SaveDialog1.FileName );
LoginPrompt := False;
Active := True;
ServiceStart;
if Verbose then
begin
While not Eof do
begin
Application.ProcessMessages;
StatusBar1.Panels[3].Text := GetNextLine;
end;
end
else
begin
while IsServiceRunning do
begin
Application.ProcessMessages;
end;
end;
StatusBar1.Panels[3].Text := ´Processo finalizado com sucesso!!!´;
Active := False;
end;
end;
finally
Cursor := crDefault;
Dm.SQLConexao.Connected := True;
end;