Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 24.10.2008, 11:05   #1
ActiveX
Пользователь
 
Регистрация: 30.01.2008
Сообщений: 14
По умолчанию Перевод длинных имен файлов в короткие...

Добрый день. При написании собственной программы возникла острая необходимость переводить длинные имена файлов в короткие. Т.е. например есть такое длинное имя в системе "D:\Мои документы\Desktop.ini.bat" - нужно его перевести в короткое имя, т.е. в "d:\c316~1\deskto~1.bat" - ну и собственно вопрос - как это сделать на Delphi? Поиск по форуму использовал - результатов он к сожалению не дал. Заранее огромное спасибо.
ActiveX вне форума Ответить с цитированием
Старый 24.10.2008, 15:47   #2
ActiveX
Пользователь
 
Регистрация: 30.01.2008
Сообщений: 14
По умолчанию

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

Код:
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;
ActiveX вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод имен столбцов maxix БД в Delphi 2 29.09.2008 15:28
Показ всех имен файлов в каталоге[Delphi] sergey31 Помощь студентам 2 27.07.2008 15:43
Умножение длинных целых чисел Rifler Паскаль, Turbo Pascal, PascalABC.NET 1 04.06.2008 20:12
случайный выбор имен SeRhy Помощь студентам 4 26.11.2007 15:00


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS