GetShortPathName avec accents
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:
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; |
