Discussion :

[franckcl]

Bonjour,

Voilà ce qui se passe:

J'ai ce code tout simple (qui ne fait rien à part ouvrir une fenêtre de dialogue)

Code :

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

1
2
3
4
5
6
7
8
procedure TFormApp.Button1Click(Sender: TObject);
Var
  D : TSaveDialog;
Begin
  D := TSaveDialog.Create(application);
  D.execute;
  D.Free;
end;

Lorsque j'exécute ce code et que je choisi un fichier dans un dossier "c:\tmp" (fichier existant ou non) et bien tant que l'application est en exécution, le dossier tmp reste verrouillé par l'application (impossible à supprimer ni renommer).

Cela ne se produit qu'avec mon application, car si je créé une appli VCL toute simple qui ne fait que ça je n'ai pas de souci.

Que se passe-t-il dans mon appli qui fait que le dossier reste verrouillé ?

Merci
Franck

[franckcl]

j'ai identifié la cause mais maintenant je ne sais pas comment résoudre ce problème.

Voilà la cause (avec XE5):
Dans Projets / Options / Application : Thème d'execution est à Aucun

Contournement:
Si on met "Activer les thèmes d'exécution" on n'a plus le problème.

Problème:
Sauf que moi je ne veux pas utiliser les thèmes alors ??? bug ??

Je suis un peu coincé là ! Si quelqu'un a une idée ?

[ShaiLeTroll]

Je crois que le lock sur le dossier sélectionné par le SaveDialog c'est parce qu'il devient le dossier en cours à sa sélection
Tente un SetCurrentDir sur le dossier de ton application
en changeant le dossier en cours, cela devrait retirer le lock

En fait comme tu n'utilises pas les mêmes contrôles Windows pour obtenir un rendu différent,
il semble que cela a plus d'impact que le thème mais aussi leur comportement comme changer le dossier en cours de l'application


D'ailleurs le manifest par défaut contient aussi une mention de sécurité qui évite un message d'avertissement sur l'utilisation d'un exe sur le réseau

[franckcl]

Oui c'est la bonne piste.
J'ai finalement trouvé la solution, il suffit d'activer l'option ofNoChangeDir à l'objet SaveDialog et le problème est résolu.

merci