Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.06 c
2-1267715582
ZV
2010-03-04 18:13
2010.08.27
Инвертировать определенный бит в байте. Как ?


3-1233731200
Mike Kouzmine
2009-02-04 10:06
2010.08.27
Не выполняется селект в хранимой процедуре


15-1271077786
12
2010-04-12 17:09
2010.08.27
Зачем сия картинка? http://delphimaster.ru/i/1x1.gif


6-1221744381
Сергей М.
2008-09-18 17:26
2010.08.27
Indy10 и условный акцепт соединений


2-1273573956
Jacksotnik
2010-05-11 14:32
2010.08.27
Помогите с удалением записи





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский