Полное имя файла (не бейте ногами)

← →
V.exeR © (2003-01-27 11:33) [0]

...не используя SysUtils. Я нашел пару примеров, но один использует SysUtils, второй неизвестную никому функцию ShortToLongFileName. А надо позарез. Помогите, кому не жалко =)

← →
Serious Sam (2003-01-27 12:10) [1]

http://www.delphikingdom.com/treasury/getlongfilename.htm
Только заменить ф-ю FileExists на GetFileAttributes - чтобы обойтись без SysUtils

← →
Игорь Шевченко © (2003-01-27 12:18) [2]

А GetShortPathName не подходит ?

← →
V.exeR © (2003-01-27 12:45) [3]

2 Игорь Шевченко:

Нашел. Но не GetShortPathName, а скорее GetFullPathName, только как его правильно использовать?

← →
Игорь Шевченко © (2003-01-27 12:52) [4]

А... вопрос не до конца дочитал. Ну да, GetLongPathName

А кстати GetFullPathName не работает ни черта =(

var
w:PChar;
e:string;
...
D:=255;
SetLength(e,D);
D:=GetFullPathName(PChar(ShortFileNameWithPath),D,PChar(e),w);
SetLength(e,D);

и по-прежнему в e находится старый короткий путь

2 Serious Sam:

Спасибо огромное, этот пример работает =)
Всем спасибо, тема исчерпана...

Полное имя файла (не бейте ногами) Найти похожие ветки