Discussion :

[Bernard B]

Bonjour,
J'ouvre une nouvelle discussion concernant le fonctionnement de FileExists.
il y en a déjà une http://"https://www.developpez.net/f...-ne-fichiers/" mais je ne suis pas dans le même cas même si le résultats est le même :

Sous Delphi 10.4 Community application développée en VCL 32bits.
Windows 10, extensions de fichiers affichées...

A partir de mon application je lance l'ouverture d'une application externe de traitement d'images jpg ou raw, Affinity pour ne pas le nommer.
Cette application vient de passer de V1 à V2 et maintenant elle n'est plus installée classiquement, on ne sait pas (je ne sais pas) où est l'éxecutable que je lançais en V1 caché dans la SandBox parait-il.
Maintenant on peut accéder à l'application V2 par un fichier lien placé ici :

C:\Users\nom d'utilisateur\AppData\Local\Microsoft\WindowsApps\AffinityPhoto2.exe

En utilisant shellExecute, l'application est bien lancée.
Pour des raisons de convivialité et éviter de tenter une application désinstallée, je fais un FileExists sur ce fichier et là FileExist me dit que ce fichier n'existe pas.
Même chose si l'application est lancée en mode administrateur.

Comment tester l'existence de ce fichier ?
Merci

[fbalien]

Bonjour

il semble que le répertoire C:\Users\nom d'utilisateur\AppData\Local\Microsoft\WindowsApps\ ait un fonctionnement particulier
fileexiste passe par un createfile en lecture seul mais c'est verrouillé par windows avec une erreur 1920

le système ne peut pas accéder au fichier

vous pouvez passer par un findfisrt

Code :

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

1
2
3
4
5
6
7
8
9
10
function booFileExiste ( aStrNomFichier : string ) : boolean
var
  searchResult : TSearchRec;
begin
  if FindFirst(aStrNomFichier , faAnyFile, searchResult) = 0 then
  begin
    result := true;
    FindClose(searchResult);
  end; 
end;

à peaufiner bien évidement

[Bernard B]

Merci pour cette idée que je n'ai pas eu.
Cela fonctionne parfaitement.