Discussion :

[cincap]

Bonjour à toutes et à tous,

Je cherche à ouvrir l'exploreur à une adresse déterminée et voir ses fichiers ou dossiers sans utiliser "C:\" et l'username soit avec la commande "%LocalAppData%\Packages\".

Avec cette commande, cela ne fonctionne pas avec Windows 10 dernière version :

Code :

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

1
2
 
ShellExecute(Handle,'open', PChar('explorer.exe') , PChar(GetSpecialFolderPath(CSIDL_LOCAL_APPDATA) +  '\Packages\')  ,nil,SW_SHOW);

Mais bien si j'utilise le chemin "C:\Users\cincap\AppData\Local\Packages".

Merci à tous si une solution est trouvée.

@+,

cincap

[free07]

Bonjour,

Est ce que si avec l'invite de commande tu tapes : echo %LocalAppData%

Le chemin est il bien affiché ?

EDIT : Sinon il me semble que la fonction GetSpecialFolderPath est dépréciée

Il vaut mieux utiliser à la place TPath.GetHomePath

[SergioMaster]

Il vaut mieux utiliser à la place TPath.GetHomePath

C'est ce que j'aurais plus ou moins écrit aussi mais comme la version de Delphi utilisée n'est pas indiquée il n'est pas certain que ce soit fourni.
De plus cela dépend de la plateforme par exemple GetHomePath se trouve dans SysUtils alors que l'on System.IOUtils.TPath.GetHomePath (en FMX)

et GetHomePath fourni %appdata% et %localappdata%

celui qui correspondrait est System.IOUtils.TPath.GetCachePath

[free07]

celui qui correspondrait est System.IOUtils.TPath.GetCachePath

Oui, tu as raison, je n'ai pas pris le temps de chercher celui qui correspond à %localappdata%

[cincap]

@ tous, merci pour les suggestions.

J'utilise toujours D6.

Avec mes tests, j'obtiens une amélioration avec le chemin en dur.

Avec cette fonction j'ai un bon résultat :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function GetSpecialFolderPath(folder : integer) : string;
const
SHGFP_TYPE_CURRENT = 0;
var
 path: array [0..MAX_PATH] of char;
begin
if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then
 Result := path
else
Result := '';
end;

et

Code :

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

1
2
3
 
 
ShellExecute(Handle,'open', PChar('explorer.exe') , PChar(GetSpecialFolderPath(CSIDL_LOCAL_APPDATA) +  '\Packages\')  ,nil,SW_SHOW);

Je clôture ce topic.

Merci à tous pour vos suggestions.

@+,

cincap