[Azef]

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

[MegaPiha]

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

Код:

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

[Azef]

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

[MegaPiha]

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

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

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

Код:

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

а так

Код:

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

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

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

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

[Azef]

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

[Azef]

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

Код:

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 не надо дополнительно никаких дейтсвий.

Код:

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

[Azef]

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