VPF::Определение пути к программе - Форум программистов

aktuba

Дата 3.10.2006, 20:00 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Такая проблема: в программе есть функции сохранения/чтения настроек этой программы. Все работает, если запускать сам экзешник, но если запустить программы по линку (например с рабочего стола), то программа не находит эти файлы. Она почему-то начинает искать их там, где находится линк. Пробовал следующее:

Код


if FileExists(ExtractFilePath(ParamStr(0)) + OptionsFile) then
begin
...
end;

Код


if FileExists('.\' + OptionsFile) then
begin
...
end;

Что не так? smile

--------------------

December

Дата 3.10.2006, 20:02 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Application.exename

--------------------

Для друзей с винграда - скидки на разработку сайтов

aktuba

Дата 3.10.2006, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Не помогло =(((

Сделал следующее:

Код


if FileExists(ExtractFilePath(Application.ExeName) + OptionsFile) then
begin
...
end;

ЧТо теперь не так?

--------------------

Alexeis

Дата 3.10.2006, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

aktuba, этот метод на 100% проверенный, вероятно неверно само имя файла.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

aktuba

Дата 4.10.2006, 07:12 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Да, спасибо. Я уже нашел причину... причина была следующая:

1. Проверка нахождения файла:

Код


if FileExists(ExtractFilePath(Application.ExeName) + OptionsFile) then
begin
...
end;

2. Загрузка файла:

Код


FileStream := TFileStream.Create(OptionsFile, fmOpenRead);
...

Все исправил, всем спасибо smile

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »