Hola, estoy haciendo un programa en el cual necesito poder hacer backups de una BD y restaurarlos, el problema existe a la hora de restaurar, que yo quiero que no te muestre el mensaje de restaurada hasta que no termine, y el programa me lo muestra antes de terminar, por lo que si el usuario es un poco impaciente se puede cargar media BD, os pongo el codigo
Código Delphi
[-] Archivo:='C:\backup\Back'+DataBackUp.DataSet.FieldByName('id').AsString+'.sql';
if (FileExists(Archivo)) then
begin
QRestaurar.Close;
QRestaurar.SQL.LoadFromFile(Archivo);
QRestaurar.ExecSQL(true);
showmessage('BD Restaurada');
end;
Gracias de antemano