Discussion :

[sematimo]

Bonjour à tous

J'ai une fonction qui récupère le chemin court d'un dossier pour être utilisé dans un batch, tout marche bien mais si le chemin comporte un accent, la fonction me renvoi une chaine vide.
Je pense que s'est une histoire de codage, je crois que lazarus est en UTF8 et windows en ANSI.
J'ai essayé avec Utf8ToAnsi mais toujours rien.

Code :

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

1
2
3
4
5
6
7
function GetShortPath(LongPathName : string) : string;
begin
  Result:='';
  LongPathName:=Utf8ToAnsi(LongPathName); 
  SetLength(Result,MAX_PATH+1);
  GetShortPathName(PChar(LongPathName),PChar(Result),MAX_PATH);
end;

[sematimo]

J'ai trouvé une réponse de DomDA91 dans une vielle discussion de 2017 .
Il faut ajouter LazUtf8 dans les Uses et convertir le chemin avec Utf8ToWinCP(LongPathName);