[winsman]

Всем привет! Хочу написать программу для работы с файлами. Для этого я использую компонент TShellListView. Чтобы узнать какой был выбран файл или папка использую:

Код:

ShellListView1.Folders[ShellListView1.ItemIndex].PathName

Но есть одна проблема: если файл без расширения то имя его ничем не отличается от названия папки. Как мне идентифицировать файл, чтобы можно было смело его удалить?

[poli-smen]

Сообщение от winsman

Всем привет! Хочу написать программу для работы с файлами. Для этого я использую компонент TShellListView. Чтобы узнать какой был выбран файл или папка использую:

Код:

ShellListView1.Folders[ShellListView1.ItemIndex].PathName

Но есть одна проблема: если файл без расширения то имя его ничем не отличается от названия папки.

А ещё бывают папки с расширениями. Нельзя по наличию/отсутствию расширения делать выводы о том папка это или файл.

Сообщение от winsman

Как мне идентифицировать файл, чтобы можно было смело его удалить?

Код:

  if ShellListView1.Folders[ShellListView1.ItemIndex].IsFolder then
  begin
    ShowMessage('Это папка');
  end else
  begin
    ShowMessage('Это файл');
  end;