Проблема с кириллицей в пути к директории

[Mefisto]

Всем привет!
При извлечении в переменную пути откуда запущено приложение посредством
MyDIR:=ExtractFileDir(ParamStr(0));
Edit1.Caption:=MyDIR;
Если имеются вложенные папки на кириллице то можно получить следующее значение переменной
F:\03_PROJECTS\02_Lazarus Projects\????? ???????????? ???? ????????\1

Как получить путь к папке в нормальном виде ?

[Sharfik]

Код: Выделить всё

MyDIR:=ExtractFileDir(ParamStr(0));
MyDIR:=SysToUTF8(MyDIR);
Edit1.Caption:=MyDIR;


[Снег Север]

Использовать ParamStrUTF8 из LazUTF8

[Mefisto]

Код: Выделить всё

MyDIR:=ExtractFileDir(ParamStr(0));
MyDIR:=SysToUTF8(MyDIR);
Edit1.Caption:=MyDIR;


СПАСИБО!
ЭТО РЕШИЛО ПРОБЛЕМУ!

[Снег Север]

ParamStrUTF8 делает то же, но в одну строчку...

[Mefisto]

ParamStrUTF8 делает то же, но в одну строчку...

Спасибо, буду знать

[Снег Север]

Mefisto, вообще обратите внимание на функции LazUTF8 и навсегда забудете о проблемах с национальными кодировками в путях, именах файлов и прочее.