Te copio un trozo de código que puede que te sirva:
(
ibR es el TIBRestoreService)
Código:
with ibR do
begin
if cProtocolo = 'Local' then
begin
ServerName := '';
Protocol := Local;
end
else
begin
Protocol := TCP;
ServerName := cServer;
end;
//
LoginPrompt := False;
Params.Add('user_name=SYSDBA');
Params.Add('password=masterkey');
Active := True;
try
Application.ProcessMessages;
//
Verbose := True;
Options := [OneRelationAtATime,Replace,CreateNewDB];
PageBuffers := 3000;
PageSize := 8192;
DatabaseName.Add( cBD_GDB );
BackupFile.Add( cBD_GBK );
ServiceStart;
While not Eof do
mmVer.Lines.Add(GetNextLine);
finally
Active := False;
//
Application.ProcessMessages;
end;
end;