Помогите разобраться с инсталляцией программы. У меня есть код, который читает настройки из ini файла. Фрагмент кода ниже:



Если я запускаю свое приложение из папки, где расположен файл ADO.ini то все нормально. Затем я с помощью программы инсталляции InstallSheld создаю setup.exe. При создании в настройках я прописываю создавать ярлык на Рабочем столе. Так вот, при запуске приложения при щелчке на этот ярлык на Рабочем столе я получаю сообщение из кода выше: "Нe удалось прочитать настройки соединения. Файл ADO.ini не найден". Иду в папку, куда прописала установить программу, вижу там саму программу и файл ADO.ini, почему же срабатывает оператор else при запуске программы с Рабочего стола?
Подскажите, как правильно организовать код выше, чтобы после инсталляции программа запускалась из ярлыка на рабочем столе.
Спасибо.

проверь отладчиком что в Application->ExeName (или MessageBox с ним выведи перед ExtractFilePath)...

Есть подозрение, что в свойствах ярлыка устанавливается рабочая папка, отличная от папки программы. Тогда FileExists("ADO.ini")!=FileExists(Path) и, следовательно, программа не находит ни в рабочей, ни в системных папках этого файла... Может правильнее написать так? :
В этом случае условие палюбасу должно срабатывать при наличии ini-файла в папке программы, и не будет зависеть от свойств ярлыка...

В свойствах ярлыка написано: "C:\Program Files\Access\Access.exe" В папку Access попадает программа и файл ini.

Код ниже:

показывает: C:\Program Files\Access\Access.exe

Если использовать так:

то все вроде начинает работать нормально. Значит ошибка здесь: if(FileExists("ADO.ini")). Получается в эту функцию, в моем случае, надо передавать весь путь, потому что функция FileExists не находит файл в директории проекта, без полного пути...

нет ни одной функции, работающей с файлами/папками, которая "ищет в директории проекта". если не указан полный путь, все функции работают относительно текущей папки(current dir, в свойствах ярлыка зовется "Рабочей папкой"), которая вовсе не обязательно является папкой, куда ты .exe положила. можешь провести эксперимент - ShowMessage(GetCurrentDir()).

либо указывать везде полные пути, собранные по аналогии твоего Path, либо можно при запуске выставлять текущей папку с .exe ( SetCurrentDir(ExtractFileDir(Application->ExeName)) ). только нужно иметь ввиду, что некоторые операции меняют текущую папку, как, например, диалог открытия файлов(если не указана опция ofNoChangeDir).