Текущий архив: 2004.07.25;
Скачать: 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 вся ветка
Текущий архив: 2004.07.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.023 c
