Адрес файла в Delphi

[andrei solovjev]

В общем такая проблема. При сохранении файла в Delphi:
procedure TPerson.Save;
var
ff: f1;
i:integer;
temp1: information;
begin
AssignFile(ff, 'bd.lz');
Rewrite(ff);
for i:=0 to length(Temp)-1 do
begin
temp1:=temp[i];
Write(ff, temp1);
end;
Closefile(ff);
end;

В общем файл bd.lz создается и записывается в каталоге, где лежит сама программа, как мне и нужно. В проге есть еще компонент TImage. Так вот, при загрузки в этот компонент изображения посредством TOpenPictureDialog, и последующего сохранения с помощью описаной выше процедуры, bd.lz сохраняется не в каталог, где лежит прога, а туда, откуда я загрузил изображение. Как сделать, чтобы bd.lz всегда сохранялся в папку с прогой, не зависимо от рисунков? Использовать абсолютные пути не предлагать.

[ЕЖ]

А почему нельзя абсолютные? Определяй где находится в данный момент твоя прога (Application.ExeName), потом отрезай путь (ExtractFilePath) и приписывай ему твой db.lz

[andrei solovjev]

Спасибо, как раз то что мне нужно.

[Naked]

А еще, вроде можно в TOpenPictureDialog указать, чтобы она не меняла пути, но с абсолютными путями лучше

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

А еще, вроде можно в TOpenPictureDialog указать, чтобы она не меняла пути, но с абсолютными путями лучше

Чтобы для диалога по умолчанию стартовой была папка, где стоит программа, нужно глобальную переменную ForceCurrentDirectory поставить в true