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 )
Avec ce code, seul le premier fichier s'affiche et l'installation continue correctement.
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 ;
Du coup, j'ai placé le code suivant dans une procédure liée à un Timer :
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.
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 ;
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
Partager