Вопрос по расширению файла

[Damikk]

Доброго времени суток,надеюсь данный вопрос не поднимался раньше,если же уже была такая тема прошу камнями не кидать) Проблема вот в чем вот кусок кода

if FindFirst('C:\*.*',faAnyFile,S)=0 then
repeat
if (s.Name <> '..') and (s.Name <>'.') then
ListBox1.Items.Add(s.Name);
until FindNext(s) <> 0;
FindClose (s);

вы поняли что она выводит)но вот в чем загвоздка,когда пользователь нажимает на название файла должна вывестись картинка которая ассоциируется с данным файлом,делаю я это так

StrPCopy(@test_file,(ExtractFileExt (ListBox1.Items[ListBox1.ItemIndex]))+#0);
SHGetFileInfo(@test_file,0,FileInfo ,SizeOf(FileInfo),SHGFI_ICON or SHGFI_USEFILEATTRIBUTES);
test_icon := TIcon.Create;
test_icon.Handle := FileInfo.hIcon;
Image1.Picture.Icon:=test_icon;

Все бы хорошо но когда пользователь нажимает на папку в названии которой есть точка (например my.folder) то вместо изображения папки вылазит изображение пустого файла,а мне надо изображение папки,что делать?Заранее благодарен за ответ

[Пепел Феникса]

используйте

function isFolder(name:string):boolean;
begin
 Result:=GetFileAttributes(PChar(name)) and FILE_ATTRIBUTE_DIRECTORY;
end;

для проверки на предмет папка ли.
помните что файл должен существовать(тут нет проверки на существания)

[Damikk]

Пепел Феникса спасибо))))

[Человек_Борща]

Используйте свои иконки в таких случаях.

[Damikk]

Моя "детская" решена,тему можно закрывать,всем спасибо!