169 похожих чатов

Почему не правильно работает ExtractFilePath(ParamStr(0)) при запуске из консоли?

14 ответов

51 просмотр

Как именно неправильно работает? Что на выходе? Я использую универсальный решение кроссплатформенное AppDir:=IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0))); Может так сработает?

Vital-DJ Автор вопроса
Renat Suleymanov
Как именно неправильно работает? Что на выходе? Я...

нет. сама функция ExtractFilePath(ParamStr(0)) при запуске из консоли, выдает только ./ . Как будто, программа не видит откуда ее запустили )). Можешь проверить, запусти любую прогу из mc

Vital DJ
нет. сама функция ExtractFilePath(ParamStr(0)) пр...

текущую директорию можно получить из GetCurrentDir попробуй что-то типа var Path := ExtractFilePath(ParamStr(0)); if Path = './' then Path := GetCurrentDir;

Vital-DJ Автор вопроса
Vital DJ
нет. сама функция ExtractFilePath(ParamStr(0)) пр...

У меня нет Дельфи под рукой. В Lazarus под Linux в консольных вроде все ok всегда

Vital-DJ Автор вопроса
Vital DJ
нет. сама функция ExtractFilePath(ParamStr(0)) пр...

Ты же понимаешь, что ты параметр запуска читаешь?

Vital DJ
догадываюсь😜

В System.IOUtils.TPath много всяких путей. Выведи все и посмотри что подходит)

Похожие вопросы

Обсуждают сегодня

а через ESC-код ?
Alexey Kulakov
29
30500 за редактор? )
Владимир
47
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
13
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
program test; {$mode delphi} procedure proc(v: int32); overload; begin end; procedure proc(v: int64); overload; begin end; var x: uint64; begin proc(x); end. Уж не знаю...
notme
6
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
5
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Ребят в СИ можно реализовать ООП?
Николай
33
Подскажите пожалуйста, как в CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); получить наз...
A Z
7
Карта сайта