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

Вниз

Короткое имя файла из длинного   Найти похожие ветки 

 
pavel_ak   (2002-12-18 18:18) [0]

Задался таким вопросом: как получить короткое имя файла, зная длинное. Полазив по разным FAQ нашел функцию GetShortPathName, но ей надо целых три параметра (тихий ужас:)). В общем что ей надо указать и что она вернет? Большой спасибо.


 
Skier   (2002-12-18 18:20) [1]

function GetShortFileName(const FileName: string): string;
begin
SetLength(Result,MAX_PATH);
if GetShortPathName(PChar(FileName),PChar(Result),length(Result)) <> 0 then
Result:=string(PChar(Result))
else
Result:=FileName;
end;


 
zavdim   (2002-12-19 05:47) [2]

А можно и так:

function ExtractFileName(const FileName: string): string;


 
DN   (2002-12-19 09:07) [3]

Зачем лазить по FAQ, стандартная функция, zavdim все написал одной строкой :)))


 
OlDemon   (2002-12-19 09:17) [4]

:)))))
а я всегда сам это делал через цикл посимвольно. Спасибо Zavdim за подсказку :)


 
zavdim   (2002-12-19 09:36) [5]

Самое смешное, что в одном из первых своих коммерческих проектов, по которому я и сырцы продал - тоже долбил посимвольно.
Да мало ли чего - иногда пишешь вагон, а потом где-то функцию откапываешь - и всего одна строчка.



Страницы: 1 вся ветка

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

Наверх





Память: 0.45 MB
Время: 0.028 c
8-5090
pasha676
2002-10-22 08:59
2003.02.03
ФайрВаре и видео


1-5039
NN_Nikita
2003-01-23 19:09
2003.02.03
Печать в MS Word


14-5209
глупый
2003-01-14 14:17
2003.02.03
Выложил


3-4780
Maniak
2003-01-16 16:18
2003.02.03
Как программно можно создать Alias ???


3-4710
mate
2003-01-18 09:36
2003.02.03
Обновление Query





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский