Получить директорий из которого запущен exe-файл

← →
Евгений Т. (2003-10-28 18:04) [0]

Здравствуйте !
Моя проблема такова: нужно в программе на Delphi получить директорий, из которого она будет запущена в виде exe-файла.
И еще один связанный вопрос: из exe-файла нужно вызывать файл помощи в формате CHM. Каталог, из которого будет запускаться exe файл заранее не известен. Решение помещать exe и chm файл в один
каталог и использовать конструкцию вида
if FileExists("Georef.chm") then
ShellExecute(Handle, "open", "Georef.chm",
nil, nil, SW_SHOWNORMAL);
не работает, если в ходе работы программы текущий системный каталог меняется.
С уважением, Евгений.

← →
Юрий Федоров © (2003-10-28 18:06) [1]

ExtractFileDir(paramStr(0)) - папка exe

← →
Ferr (2003-10-28 18:49) [2]

или ExtractFilePath(Application.ExeName)+"Georef.chm"

← →
Vlad © (2003-10-28 18:52) [3]

ShellExecute(Handle, "open", ".\Georef.chm",nil, nil, SW_SHOWNORMAL);
Запустит файл из той же директории, где exe

← →
Palladin © (2003-10-28 19:09) [4]

> Vlad © (28.10.03 18:52) [3]

не обманывай народ

← →
Vlad © (2003-10-28 19:14) [5]

>Palladin © (28.10.03 19:09) [4]
ну да, PChar() забыл

> Vlad © (28.10.03 18:52) [3]
> ShellExecute(Handle, "open", ".\Georef.chm",nil, nil, SW_SHOWNORMAL);
> Запустит файл из той же директории, где exe

Если программа не сменит теущую директорию до этого

> Vlad © (28.10.03 19:14) [5]

нет, косяк именно указанный DVM © (28.10.03 19:17) [6]

осбенно текущие директории любят менять TSave/TOpenDialog

Да и программа ни причем, можно запустить из ярлыка, со смененой рабочей папкой. А уж про возможности программы можно и не говорить.

Получить директорий из которого запущен exe-файл Найти похожие ветки