VPF::запуск программы по ярлыку - Форум программистов

delphi_

Дата 2.7.2007, 11:46 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1

Написал значит я программку на Delphi 7.Изображения для glyph`a кнопок она берет из файлов,которые распалагаються в лректории программы.

Проблема в том что если зайти просто в папку с программой и запустить ее то все ок.Если же создаить ярлык (как делает инсталятор Inno Setup) то прога пишет ,что не может найти файла,причем ищет их в той папке где ярлык находиться

как это исправить?

Rennigth

Дата 2.7.2007, 12:05 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

1. Путь до картинуи указывай не относительний на полный(находиться в ParamStr(0)) .
2. Установить текущую директорию функцией SetCurrentDirectory.

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

(* Honesta mors turpi vita potior *)

delphi_

Дата 2.7.2007, 12:15 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1

Гм
дело в том что вот как оно работает-

Код


procedure TForm1.FormShow(Sender: TObject);
var
Ini:TIniFile;
begin
Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'ini.ini');
   sspeedbutton5.Glyph.LoadFromFile(Ini.ReadString('glyph', 'glyph1', '1'));
...

а в Ini файле просто указано название файла который лежит в папке с программой
например 1.bmp

как тут тогда использовать параметры?

и еще я заметил что если руками создать ярлык то там указываеться рабочая папка
если создает инсталер-то нет,поэтому оно и ищет где ярлык файлы..блин

Это сообщение отредактировал(а) delphi_ - 2.7.2007, 12:22

Rennigth

Дата 2.7.2007, 12:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

delphi_, Ну тыже ini ведь читаешь нормально... Религия не позволяет также поступить и с путем к картинке?

Код


var
  lFileName: string;  
begin
  lFileName := ExtractFilePath(Application.ExeName) + Ini.ReadString('glyph', 'glyph1', '1.bmp')
  if FileExists(lFileName) then
    sspeedbutton5.Glyph.LoadFromFile(lFileName);

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

(* Honesta mors turpi vita potior *)

delphi_

Дата 2.7.2007, 13:03 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1

спасибо

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