Afficher un fichier dans un TWebBrowser et déplacer le fichier

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 fonction

Code:

---

MoveFile(PChar(vorigine), PChar(vfinal), MOVEFILE_COPY_ALLOWED);

---

je déplace le fichier vers un autre répertoire.

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,

Code:

---

WebBrowser1.Navigate( 'about:blank')

---

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é.

Auriez-vous une idée à me suggérer sur ce problème ?

Merci d'avance

Si ton fichier n'est pas trop gros, fais une copie du fichier dans le répertoire temporaire sous un nom qui est toujours le même et visualise cette copie

Citation:

---

Envoyé par ALWEBER

Si ton fichier n'est pas trop gros, fais une copie du fichier dans le répertoire temporaire sous un nom qui est toujours le même et visualise cette copie

---

A condition de n'avoir qu'une instance active à la fois de l'application.

@++
Dany

Citation:

---

Envoyé par ALWEBER

Si ton fichier n'est pas trop gros, fais une copie du fichier dans le répertoire temporaire sous un nom qui est toujours le même et visualise cette copie

---

Ok, je vais m'orienter sur cette piste. Merci !

Citation:

---

Envoyé par skywaukers

A condition de n'avoir qu'une instance active à la fois de l'application.
@++
Dany

---

Oui, une seule instance active dans l'appli.