FreePascal.ru

Снег Север писал(а):ParamStrUTF8 делает то же, но в одну строчку...

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

Sharfik писал(а):

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

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

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

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