Discussion :

[ninaleo]

Bonjour tout le monde

J'ai un petit souci pour afficher un texte qui indique le nom du fichier qui est copié lors d'une installation. En fait, je souhaite afficher sur la fenêtre d'installation d'un logiciel, le nom du fichier qui est en train d'être copié sur le disque dur. Pour cela, j'ai écrit ce code : ( ProgressionInstallation est une barre montrant l'avancement de l'installation )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
   For I := 1 To NbFichiers Do
    Begin
      InfoFichierCopie.Caption := 'Copie du fichier : ' + Fichier[I] ;
      InfoFichierCopie.Left := (FicheInstallation.ClientWidth - InfoFichierCopie.Width ) Div 2 ;
      ProgressionInstallation.Stepit ;
      CopyFile(Pchar(RepertoireSource+'\'+Fichier[I]), PChar(LeRepertoire+Fichier[I]),ok);
      FileSetAttr(PChar(LeRepertoire+Fichier[I]),FaArchive) ;
    End ;

Avec ce code, seul le premier fichier s'affiche et l'installation continue correctement.

Du coup, j'ai placé le code suivant dans une procédure liée à un Timer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
      InfoFichierCopie.Caption := 'Copie du fichier : ' + Fichier[I] ;
      InfoFichierCopie.Left := (FicheInstallation.ClientWidth - InfoFichierCopie.Width ) Div 2 ;
      ProgressionInstallation.Stepit ;

Dans un premier temps avec interval = 1000 puis avec interval = 4000 : rien ne s'affiche. Par contre, le petit rond bleu d'attente de windows apparait jusqu'à la fin de l'installation, qui se poursuit normalement.

Auriez-vous une idée pour que je puisse afficher en temps réel le nom du fichier qui est en train d'être copié lors de cette installation ?

Je vous remercie par avance de votre aide et vous souhaite une très bonne journée

Laurent CUSSAC

[SergioMaster]

bonjour,
Force le dessin de InfoFichierCopie après le changement de caption , soit par un refresh , repaint, invalidate etc... il y a eu une discussion sur les différences de ces instructions récemment (merci la fonction de recherche dans les forums )

[ninaleo]

Un grand merci pour votre réponse !!!

J'ai essayé ce que vous m'avez proposé, cela ne marche hélas pas ! ( j'ai essayé avec Refresh, Repaint, Update )

Du coup, j'ai essayé d'enlever la boucle et de copier un à un les fichiers, cela ne marche pas non plus, même en plaçant le refresh à chaque étape.

J'ai ensuite essayé de copier les fichiers dans l'ordre croissant de leur taille et en fait, cela bloque dès que la taille du fichier dépasse 5 Mo et l'installation se poursuit normalement mais l'affichage du fichier qui est en train d'être copié s'arrête et j'ai encore le rond bleu de windows qui m"indique qu'on est occupé ;-)

Auriez-vous une idée sur la raison du problème ?

Je vous remercie par avance de votre réponse :-)

Bonne journée à vous

Laurent CUSSAC