Как определить каталог из которого запущен .exe файл

[xwicked]

Сообщение от sheva_ya

Проблема в следующем:
При запуске программы, в обработчике Form.Create, мне нужно узнать полный адрес каталога из которого запущен .exe файл, т.е. в таком виде D:\Programs\...\MyProgram\Project1. exe

Всё таки я был прав. Объявляется глобальная переменная:

var sProgramPath: string;

Потом:

sProgramPath := GetCurrentDir;

Сообщение от veniside

Видимо, у вас в проектах нет Open/Save диалогов, например. Они меняют текущую дерикторию. Да и файл может быть запущен с предустановленным рабочим (текущим) каталогом. Это легко проверить, создав shortcut на ваш файл и задав в свойствах shortcut-а какой угодно стартовый каталог, отличный от каталога с .ехе.

Это определение только один раз, я внимательно прочитал сообщение ТС.

[veniside]

> я внимательно прочитал сообщение ТС.

а то, что написал я, очевидно, прочитали невнимательно )

файл может быть запущен с предустановленным рабочим (текущим) каталогом. Это легко проверить, создав shortcut на ваш файл и задав в свойствах shortcut-а какой угодно стартовый каталог, отличный от каталога с .ехе.

GetCurrentDir() вернёт вот этот любой заданный стартовый каталог, а не "полный адрес каталога из которого запущен .exe файл".

[xwicked]

Сообщение от veniside

GetCurrentDir() вернёт вот этот любой заданный стартовый каталог, а не "полный адрес каталога из которого запущен .exe файл".

Не пойму суть Ваших переживаний. Мой способ самый чёткий - пусть меня поправят 10(минимум) человек. Вы же говорите про исключительный частный случай.

Ради интереса - назовите мне условие его возникновения.

Судя по Вашему упорству - я не прав??? Так и скажите мой способ НЕ работает, иначе можно ещё, вывернуться и придумать 100 частных случаев.

ЗЫ: у некоторых крупных программ - в ярлыке вообще не задан рабочий каталог.

[Serge_Bliznykov]

Ради интереса - назовите мне условие его возникновения.

не сорьтесь, горячие парни...

проблема в том, что у автора вопроса противоречие заложено прямо в условиях задачи:

мне нужно узнать полный адрес каталога из которого запущен .exe файл, т.е. в таком виде D:\Programs\...\MyProgram\Project1. exe

т.о. подменяются понятия каталог, где расположен EXE файл и каталог, из которого этот EXE файл запустили.

я думаю, что его интересует ВТОРОЕ (т.е. полный путь к запущенному EXE-шнику).
В этом случае правы мы с veniside.

Если же его интересует, откуда мы запустили программу, ВНЕ ЗАВИСИМОСТИ от того, где лежит EXE-шник - тогда Вы, xwicked, правы! Нужно брать текущий каталог.

А то, что это ДАЛЕКО не одно и тоже доказать элементарно.

xwicked, напишите программку, которая при запуске выдаёт каталог, который, как Вы утверждаете, является каталогом расположения EXE файла.
Положите эту программку, например, в корень диска D:\
т.е. полный путь будет D:\Project1.exe

в командной строке перейдите на любой другой диск,каталог, наберите
D:\Project1.exe enter - и наблюдайте результат...

[xwicked]

Сообщение от Serge_Bliznykov

А то, что это ДАЛЕКО не одно и тоже доказать элементарно.

Serge_Bliznykov, Вы ещё раз доказали, что я прав.

Сообщение от xwicked

Ещё вариант, каким я пользуюсь(только каталог):

var
  dir : string;

begin
  // Получаем текущую директорию
  dir := GetCurrentDir;
end;

Я не говорил, что ParamStr(0) - это не правильно - я жирным выделил свои слова.

ParamStr(0) - универсальный вариант, может использоваться для всех случаев, включая написание административных утилит, где теоретически предполагается работа из консоли.
GetCurrentDir - может использоваться для всех остальных программ(не административных), как самый простой вариант.

Вопросы есть? Привели только 2-а очень частных случая. Хотя с ярлыком - это был немного глупый пример.

[Serge_Bliznykov]

Вопросы есть?

у меня вопрос и раньше не было (ну, разве что к TC - чтобы понять, что ему точно нужно и зачем).

GetCurrentDir - может использоваться для всех остальных программ

вы не правы. Текущий каталог - это совсем другое.
И, если Вы это понимаете, то тогда зачем спорите.
Узнать путь, где лежит exe-шник часто бывает нужно. Например, если рядом с EXE-шником нужно взять INI файл (или БД, или какие-то ресурсы/данные/картинки, лежащие в каталоге рядом с EXE-шником)...
И то, что я могу просто запустить Ваш проект так, что проект неправильно определит каталог запуска — это "косяк" программиста... И чем строчка GetCurrentDir проще, чем ExtractFilePath(Paramstr(0)), я лично не понимаю... И, видимо, уже не пойму...

Впрочем, думаю, позиции сторон ясны, точки на I поставлены, дальнейший спор — бесполезен, ибо никого никому ничего не докажет...

[xwicked]

Сообщение от Serge_Bliznykov

И то, что я могу просто запустить Ваш проект так, что проект неправильно определит каталог запуска — это "косяк" программиста...

Кроме команды в консоли, как ещё? Без ярлыка, другой пример, с которым может встретиться рядовой пользователь?

В этом и заключается мастерство программиста, чтобы решать одну задачу 8-ю способами. Вы, если профессионал, то должны это понимать...

Сообщение от Serge_Bliznykov

И чем строчка GetCurrentDir проще, чем ExtractFilePath(Paramstr(0)), я лично не понимаю... И, видимо, уже не пойму...

Хотя бы количеством символов - проще для запоминания.
Если Вы спорите , то я рассуждаю.

Сообщение от Serge_Bliznykov

вы не правы. Текущий каталог - это совсем другое.

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