Народ подскажите как указать универсальный путь к базе данных

← →
Akella © (2004-06-29 09:49) [0]

Народ подскажите как указать универсальный путь к базе данных в Delphi 6, чтобы точкой отсчёта был каталог исполняемого файла - ???DB\Table.db

← →
Соловьев © (2004-06-29 09:51) [1]

path := ExtractFilePath(Application.ExeName)+nameDB;

← →
Anatoly Podgoretsky © (2004-06-29 09:54) [2]

Точка отсчета задается ТОЧКОЙ

← →
Akella © (2004-06-29 10:00) [3]

ExtractFilePath - вещь хорошая - но она ведь работает как функция, а можно ли задать путь например как в виндузе типа %StartDir\DB\Table.db

← →
Соловьев © (2004-06-29 10:07) [4]

> ExtractFilePath - вещь хорошая - но она ведь работает как
> функция,

это к чему?

> а можно ли задать путь например как в виндузе типа %StartDir\DB\Table.db

[1]

path := ExtractFilePath(Application.ExeName)+nameDB;

procedure TForm1.FormCreate(Sender: TObject); const cExtractFilePath = "ExtractFilePath"; var Path: array[0..Max_Path] of char; begin SetEnvironmentVariable(cExtractFilePath, PChar(ExtractFilePath(Application.ExeName))); ExpandEnvironmentStrings(PChar("%"+cExtractFilePath + "%DB"), Path, Max_Path); ShowMessage(PChar(@Path)); end;

Народ подскажите как указать универсальный путь к базе данных Найти похожие ветки