[Azef]

Создал прогрумму, нужно перенести на другой ПК. Проблема в том, что в ней ссылки на большое кол-во картинок,который находяться на моём жёстком диске. Все картинки в папке с проектом. Пробовал создать инсталлятор,но при установки выдаёт ошибку. Как лучше это сделать? Заранее благодарен.

[MegaPiha]

При загрузке картинок добавлять путь рабочей папки.

Код:

1 2 3 4 5

Var path:string; begin    GetDir(0,path);//возвращает рабочую папку ... end;

[Azef]

Т.е я создаю переменную в процедуре,где идут ссылки на картинки, перед первой ссылкой использую GetDir(0,path)? А если у меня в проге есть фоновая музыка указаная не в коде,а в свойстве TMediaPlayer.FileName,как быть с этом? Сорри если я туплю.

[MegaPiha]

Сообщение от Azef

Т.е я создаю переменную в процедуре,где идут ссылки на картинки, перед первой ссылкой использую GetDir(0,path)?

Везде где указывается путь к картинке, прописывать не так(к примеру):

Код:

1	...'c:\myProject\pic\1.jpg'

а так

Код:

1	...path+'\pic\1.jpg'

Сообщение от Azef

А если у меня в проге есть фоновая музыка указаная не в коде,а в свойстве TMediaPlayer.FileName,как быть с этом?

Нужно программно задавать имя файла, а не через Object Inspector

[Azef]

Большое спасибо.

[Azef]

Что-то не получается...всё компелируется, программа запускается,но вылетает с системной ошибкой,что файл не найден. Вот кусок моего кода для вывода на экран одной картинки. В чём я накосячел?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var jpgpath:string; pict:string; f:file;   begin GetPath(0,jpgpath); Pict:= jpgpath+'\123.jpg'; assignfile(f,pict); reset(f); read(f); Form2.Image2.Picture.LoadFromFile(pict); closefile(f); end;

[lmikle]

Во всем.
Для загрузки картинки в Image не надо дополнительно никаких дейтсвий.

Код:

1 2 3 4 5

GetPath(0,jpgpath); Pict:= jpgpath+'\123.jpg'; If FileExists(Pict)  Then Form2.Image2.Picture.LoadFromFile(pict)  Else ShowMessage('Файл не найден ('+Pict+')');

[Azef]

Спасибо большое.