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

GetFullPathName   Найти похожие ветки 

← →
F$   (2010-04-08 17:00) [0]

из относительного пути получаю абсолютный (как я понял это зависит от места где лежит exe проекта).


procedure TMainForm.Button1Click(Sender: TObject);
var
SomeFile : array[0..MAX_PATH-1] of Char;
FullFileName : array[0..MAX_PATH-1] of Char;
FileName : PChar;
begin
SomeFile := ".\Database\New.dat";
GetFullPathName(@SomeFile, // Указатель на строку,содержащую реальное имя файла
  SizeOf(FullFileName), // Размер буфера,который получит полное имя файла(путь+имя)
  FullFileName,          // Указатель на буфер,который получит полное имя файла(путь+имя)
  FileName); // Указатель на буфер,который получит адрес (4 байта),указывающий на имя файла в буфере
  ShowMessage(FullFileName);
end;


Теперь собственно вопрос: как сделать так, чтобы абсолютный путь определялся исходя из заданной мною директории (скажем C:\),  а не места, где лижит exe.

---

← →
Медвежонок Пятачок ©   (2010-04-08 17:01) [1]

а он и так определяется не с того места где лежит exe.
он определяется от текущего каталога процесса

---

← →
Anatoly Podgoretsky ©   (2010-04-08 17:05) [2]

> F$  (08.04.2010 17:00:00)  [0]

Неверное использование функции, она для этого не предназначена. Тебе нужен ExpandFileName

---

← →
Медвежонок Пятачок ©   (2010-04-08 17:06) [3]

делаешь expandfilename своему файлу.
делаешь тоже самое для начального каталога.
вычитаешь строки, получаешь искомый путь от начального каталога

---

← →
F$   (2010-04-08 17:09) [4]

>  ExpandFileName


Функция добавляет к имени текущего каталога имя файла, указанное в параметре FileName.

а указать текущий каталог

---

← →
F$   (2010-04-08 17:13) [5]

chDir. тему можно закрывать.

---

← →
Медвежонок Пятачок ©   (2010-04-08 17:14) [6]

Функция добавляет к имени текущего каталога имя файла, указанное в параметре FileName.

Неужели?

ShowMessage(ExpandFileName("..\..\Test.txt"))

---

← →
Anatoly Podgoretsky ©   (2010-04-08 19:35) [7]

> F$  (08.04.2010 17:09:04)  [4]

SetCurrentDir

---

← →
Anatoly Podgoretsky ©   (2010-04-08 19:41) [8]

> Медвежонок Пятачок  (08.04.2010 17:14:06)  [6]

ExpandFileName converts the relative file name into a fully qualified path name.

---

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

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



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