à tous

Voilà le code, fait dans une petite application de test
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.FormShow(Sender: TObject);
var Cmde, params, Chemin1, Chemin2 : string;
begin
   Chemin1 := 'C:\SAUVEGARDES\ESSAI.fbk';
   Chemin2 := 'C:\BASES\ESSAI.FDB';
   Cmde := 'C:\Program Files\Firebird\Firebird_2_1\bin\gbak.exe';
   params:=Format('-rep -l -g -user SYSDBA -password ' +
   ZConnection.Password +' %s %s',[Chemin1, Chemin2]);
 
   ZConnection.Connected := false;
   ZConnection.Database := '';
   ShellExecute(0,'open',Pchar(cmde),Pchar(params),nil,SW_HIDE);
   ZConnection.Database := Chemin2;
   ZConnection.Connected := true;   <=======
   ZReadOnlyQuery1.Active := true;
end;
La restauration se fait correctement, mais l'ordre pointé envoie un message disant que la base est "shutdown". Si je sors de l'appli, la base est bien accessible et je vois que la restauration a été faite correctement.
D'où vient ce problème