ShellListView - отображение файлов

[sashahttp]

есть ShellListView, подключенный к ShellTreeView, выбераю папку в ShellTreeView, файлы отображаются в ShellListView. Но, если в директории находится файл Корела (*.cdr) - выдает ошибку (Floating point division by zero). Может и сдругими расширениями есть проблемы - не проверял. Кто знает, как решить эту проблему?

[i_Mikha]

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

есть ShellListView, подключенный к ShellTreeView, выбераю папку в ShellTreeView, файлы отображаются в ShellListView. Но, если в директории находится файл Корела (*.cdr) - выдает ошибку (Floating point division by zero). Может и сдругими расширениями есть проблемы - не проверял. Кто знает, как решить эту проблему?

Стоит XP sp3, происходит тоже самое. Ошибка вылезает на файлах CorelDraw X4 и X5. Если текстовый файл переименовать в *.cdr, *.cmx, *.cpt(еще некоторые файлы корела), то ошибки нет. Может быть это происходит из за того, что эти файлы - зип-архивы и содержат подкаталоги.

У меня очень давно был установлен аналогичный компанент - JamiShellListView, видимо созданный на базе стандартного. Понадобился - вскрылась эта проблема. Решил так: пошагово (F7) дошел до места, пока не открылся файл ShellControls. Там, в procedure TJamShellList.CNNotify(var Message: TWMNotify);
вместо строки iImage := FShellBrowser.IconNumber;
я вставил
if (ansilowercase(extractfileext(fShel lBrowser.GetShellObjectName))='.pat ')or
(ansilowercase(extractfileext(fShel lBrowser.GetShellObjectName))='.cdr ')or
(ansilowercase(extractfileext(fShel lBrowser.GetShellObjectName))='.dat a')or
(ansilowercase(extractfileext(fShel lBrowser.GetShellObjectName))='.cmx ')or
(ansilowercase(extractfileext(fShel lBrowser.GetShellObjectName))='.cpt ')then iImage :=5 else
iImage := FShellBrowser.IconNumber;

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