Как получить короткий путь

[Д'якон]

Почему-то не могу получить короткий путь в котором есть русский шрифт
например

C:\Document and Setting\Андрей

Как такой путь конвертировать в короткий?

[Terran]

Можете сделать так:

Function Sfn(Const LongName: String): String;
// Возвращает LongFileName преобразованное в соответствующее короткое имя
Var
I :Integer;
Begin
SetLength(Result,Length(LongName));
I:=GetShortPathName(PChar(LongName),PChar(Result),Length(Result));
If I > Length(Result)  Then
Begin
SetLength(Result,I);
I:=GetShortPathName(PChar(LongName),PChar(Result),Length(Result));
End;
SetLength(Result,I);
End;
//Пример использования
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit1.Text:=Sfn('C:\Documents and Settings\Андрей\Рабочий стол\Андрей\Winamp media file.wav');
End;

[Д'якон]

Чет с русскими шрифтом в названии пути все ровно не работает

[Terran]

Сообщение от Д'якон

Чет с русскими шрифтом в названии пути все ровно не работает

Я у себя проверял. У меня всё хорошо работает.

[Ntlegend]

Здрасте.. собственно говоря хоть тема и старая.. но все же возник такоей вопрос.. как же всетаки 100% получить короткий путь к файлу (в DOS'овском виде)..

все написаное выше работает не коректно.. а точянее не кореектно работает GetShortPathName.. вот пример:

c:\Program Files\
преобразовывает в
c:\Progra~1
а от
E:\Program Files\
так и оставляет

и при этом GetLastError возвращает 0

так же на некоторых форумах говорится

Функция GetShortName не работает на разделах с NTFS

хатя в MSDN я этого не увидел.


собственно говоря.. вопрос в том как еще это можна простенько реализовать??