Установка рабочей папки приложения

← →
Vlash (2005-01-13 10:53) [0]

Доброго дня.
Как установить при запуске рабочую папку программы???
Дело в том, что запускается программа иногда через COM (автоматизацию), а при запуске из файлов подгружаются настройки различные.
AssignFile(OptionsFile,".\Ini\Options.ini");

Так вот: при запуске через COM рабочая оказывается видимо Windows\System, а нужна папка, полученная через ExtractFilePath(Application.ExeName).

Заранее спасибо

← →
ЮЮ © (2005-01-13 10:57) [1]

>а нужна папка, полученная через ExtractFilePath(Application.ExeName).

Если нужна, так и пиши:
AssignFile(OptionsFile,ExtractFilePath(ExtractFileDir (Application.ExeName)) + "Ini\Options.ini");

← →
Anatoly Podgoretsky © (2005-01-13 12:34) [2]

SetCurrentDir

← →
Vlash (2005-01-13 12:56) [3]

Спасибо за ответы!!! Особенно за SetCurrentDir ;)

Установка рабочей папки приложения Найти похожие ветки