Bonjour,
In the good old timeDans le bon vieux temps, je cliquais sur un bouton et la procédure OpenDocument(dossier); m'ouvrait l'explorateur à l"adresse demandée dans mon arborescence de dossiers.
Ça s'appuyait sur ça :
que je ne sais pas lire, que je ne comprends pas, mais qui fonctionne.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Function FpAccess (pathname : AnsiString; aMode : cInt): cInt; {$ifdef VER2_0}inline;{$endif} Begin FpAccess:=FpAccess(pchar(pathname),amode); End;
À notre époque moderne, avec FPC 3.2 et Laz 2.0.10 ça ne fonctionne plus, on passe par FileExists qui fait une vérification et sort sans rien ouvrir s'il s'agit d'un dossier. Or il s'agit bien d'un dossier et moi je veux le voir ouvert.
Comment faire, maintenant ?
J'ai un peu regardé dans FileUtil.pas sans rien trouver d'intéressant. J'ai aussi un peu googlé mais là c'est l'océan qui s'ouvre, sans qu'il n'en sorte rien de bon,
Vous faites comment, vous ? Merci,
Partager