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;