Перевод длинных имен файлов в короткие...

[ActiveX]

Добрый день. При написании собственной программы возникла острая необходимость переводить длинные имена файлов в короткие. Т.е. например есть такое длинное имя в системе "D:\Мои документы\Desktop.ini.bat" - нужно его перевести в короткое имя, т.е. в "d:\c316~1\deskto~1.bat" - ну и собственно вопрос - как это сделать на Delphi? Поиск по форуму использовал - результатов он к сожалению не дал. Заранее огромное спасибо.

[ActiveX]

Неактуально - ответ на свой вопрос нашел сам:

Function ShortFileName(Const FileName: String): String;
Var
aTmp: Array[0..255] Of Char;
Begin
If Not FileExists(FileName) Then
Begin
Result := '';
End
Else
Begin
If GetShortPathName(PChar (FileName), aTmp, Sizeof (aTmp) - 1) = 0 Then
Begin
Result:= FileName;
End
Else
Begin
Result:= StrPas (aTmp);
End;
End;
End;