Bonjour,
J'ai une application qui me permet de renommer des fichiers qui se trouve dans un répertoire.
Les fichiers de ce répertoire sont chargés dans un listbox. Lorsque je sélectionne un item de ce listbox, le fichier correspondant est visualiser dans un TwebBroser afin d'avoir un aperçu du fichier en question.
Ensuite, à l'aide de la fonctionje déplace le fichier vers un autre répertoire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part MoveFile(PChar(vorigine), PChar(vfinal), MOVEFILE_COPY_ALLOWED);
Le problème c'est que le fichier, si l'est encore ouvert dans le TWebBrowser n'est pas déplacé, ce qui est logique car ouvert.
J'ai essayé de mettre avant la commande MoveFile,afin de vider le TWebBrowser et de fermer le fichier, mais je pense que le code est plus rapide que la fermeture du fichier, car le déplacement du fichier n'est pas effectué.
Code : Sélectionner tout - Visualiser dans une fenêtre à part WebBrowser1.Navigate( 'about:blank')
Auriez-vous une idée à me suggérer sur ce problème ?
Merci d'avance
Partager