Показать сообщение отдельно
  #2  
Старый 09.10.2012, 03:21
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от winsman
Всем привет! Хочу написать программу для работы с файлами. Для этого я использую компонент TShellListView. Чтобы узнать какой был выбран файл или папка использую:
Код:
ShellListView1.Folders[ShellListView1.ItemIndex].PathName
Но есть одна проблема: если файл без расширения то имя его ничем не отличается от названия папки.
А ещё бывают папки с расширениями. Нельзя по наличию/отсутствию расширения делать выводы о том папка это или файл.
Цитата:
Сообщение от winsman
Как мне идентифицировать файл, чтобы можно было смело его удалить?
Код:
  if ShellListView1.Folders[ShellListView1.ItemIndex].IsFolder then
  begin
    ShowMessage('Это папка');
  end else
  begin
    ShowMessage('Это файл');
  end;
Ответить с цитированием