Virtual Listview(вывод файлов с расширением)

[Тоба]

Здравствуйте.
В делфи в папке Demos есть пример для работы с TListview
файлы (в примере) выводятся без расширений.
Необходимо отображать их включая расширение.
С этим компонентом никогда не работал, долго мучал этот пример, но увы...
Кто компетентен прошу вас помочь.

[come-on]

Неужели там нет галки показать расширение?
все нормальные компаненты имеют такую галку. Даже батоны.

[Тоба]

По крайней мере у меня нет.

[phomm]

come-on, не стоит так грубо.
Тоба, режим показа расширений файлов в этой демо зависит от настроки "скрывать расширение зарегистрированных типов файлов" в проводнике, ибо весь этот пример собран на винапи и зависит от виндовс-среды, как будто это тоже проводник. Быстренько прошвырнулся, не нашёл ответа, можно ли прямо в нём подкрутить расширения, поэтому лучше делайте через настройку проводника.

Альтернатива - делать всё целиком ручками с использованием FindFirst/FindNext, но не будет фичи с псевдопапками (мой компьютер и т.п.) и придётся выбирать диск отдельно

[come-on]

не стоит так грубо.

Если бы это было в студентах, то вообще бы не писал ничего, а так .. ну должен что то понимать ТС, раз уж тут спрашивает, или хотябы что то показал.
Хотя конечно признаю, грубовато, но его ответ еще больше порадовал

[Тоба]

phomm - Спасибо за разъяснения.
А если сделать например так:
В этом примере нам известен текущий путь к папке (открытой в данный момент)
Также нам известны имена всех файлов, которые есть в этой папке.
Выделяем нужный нам файл> запоминаем его имя в переменной
Пишем ручками функцию которая будет искать в данной текущей папке(путь ведь мы знаем) все файлы с полным путём(с расширеним) и как только попался файл с таким-же именем, которое у нас лежит в переменной, значит это он
В общем, если это сформулировать - мы знаем путь и знаем имя - нам надо найти расширение, исходя из этих двух критериев

[phomm]

Если прямо сильно ломает выставлять галочку в настройках проводника, есть ещё один вариантик
строку 199

Flags := SHGDN_NORMAL;

заменить на

Flags := SHGDN_INFOLDER or SHGDN_FORPARSING;

Почему так - читайте тут https://msdn.microsoft.com/ru-ru/lib...=vs.85%29.aspx
НО!, это я подогнал флаги под Вашу конкретную задачку, не факт, что остальная работа этой демки не развалится.

[Тоба]

Для именно моей задачи всё подходит и устраивает, проверил все зависимости на предмет разваливания - всё ОК
Спасибо Вам огромное за помощь и за потраченное время.