Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Установка рабочей папки приложения [D6, Win95/98, Win2k]


Vlash ©   (2005-01-13 10:53:00) 

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

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

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


Vlash   (2005-01-13 12:56:00) [1]

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


Anatoly Podgoretsky   (2005-01-13 12:34:00) [2]

SetCurrentDir


ЮЮ   (2005-01-13 10:57:00) [3]

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо