Динамические пути

[Neksion]

Доброго времени суток!
При создании программы для работы с таблицами возникла проблема её переноса на другие компьютеры: т.е если на первом ПК БД хранится по пути С:\...\BS.db, то на втором ПК D:\...\BS.db - в таком случае программа работать не будет, т.к в компоненте Table прописан неверный путь.
Вопрос: можно ли в программке сделать так, чтобы программа могла считывать БД, находящие в одной папке с самой программой и как это сделать(лучше ссылку на литературу и как это правильно называется=))?
Заранее всем спасибо!

[Stilet]

ExtractFilePath(ParamStr(0)) даст тебе путь к каталогу запущенной программы.

[s-andriano]

Кроме того, если указать имя файла без пути, файл будет взят из рабочей папки программы.
Указать нужную рабочую папку можно в ярлыке.

[Neksion]

Спасибо, получилось.
Возник другой вопрос: если для рабочих файлов достаточно сделать это -

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

То как указать путь в место, куда будет копироваться файл(файл будет копироваться в папку(P), находящейся в директории с рабочей программой), при помощи этой функции?

CopyFile(OpenDialog9.FileName,'/папка P/',true);

[Stilet]

CopyFile(OpenDialog9.FileName,'..\P\',true);

Если не ошибаюсь...

[Abstraction]

Если не ошибаюсь...

Одна точка, наверное.

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

[Neksion]

Спасибо за ответы!
Вот что получилось:

CopyFile(PChar(OpenDialog10.FileName),(PChar('.\Library\'+ExtractFilename(opendialog10.FileName))),false);

Код ошибку не выдает, но свою задачу не выполняет(запускай программуу с правами администратора или нет).
P/s вариант с одной-двумя точками исключается - результат тот же.
В чем может быть проблема?

[Delphi_ProGer]

Код ошибку не выдает, но свою задачу не выполняет(запускай программуу с правами администратора или нет).

Могу ошибаться, но эта процедура не вернет ошибку. Разве что попробуйте через

GetLastError

[evg_m]

есть такое понятие как "текущий каталог". Current directory
потом есть еще "стандарные каталоги"
Все неполные пути разрешаются
1. относительно текущего каталога
2. среди стандартных. (при поисках файла)

В чем может быть проблема?

OpenDialog меняет текущий каталог на тот в который он смотрит.
посему копирование идет по тому же пути (в туже папку) откуда и читаем, а вовсе не в папку с программой.
поможет
1. полный путь

ExtractFilePath(...) + ...

2.

mydir:=GetCurrentdir; // запомнить до вызова
    OpenDialog1.Execute 
   SetCurrentdir(mydir); //  восстановить после вызова

[Neksion]

GetlastError показал, что код ошибки - 3