Скачать: CL | DM;

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

← →
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]

---

← →
Akella ©   (2004-06-29 10:09) [5]

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

---

← →
Sandman25 ©   (2004-06-29 10:15) [6]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c