🚀 go-pugleaf

Hello,

I got weird problem when trying to show icons representing file types in an
"explorer-like" list view (style is vsReport so small images are used, file
icons are shown as StateImages). I added TImageList to the form:

TImageList FileIcons;

And in the form constructor the following lines are added:

//--------------------------------------------------------------------------
-

__fastcall TMyForm::TMyForm(TComponent* Owner) : TForm(Owner)
{
    SHFILEINFO Si;

    FileIcons->Handle = SHGetFileInfo("C:\\",SFGAO_SHARE,&Si,sizeof
(SHFILEINFO),SHGFI_ICON|SHGFI_SMALLICON|SHGFI_SYSICONINDEX);
    FileIcons->ShareImages = true;
}

//--------------------------------------------------------------------------
-

Here is some class which holds fully qualified file path as a member:

class Filer
{
    private:
        String FileName;
   public:
        void __fastcall MakeImage(const TListItem *li) const;

};

//--------------------------------------------------------------------------
-

Here's the body of it's member function which gets TListItem as a parameter
and sets appropriate state image representing file type for it:

void __fastcall Filer::MakeImage(const TListItem *li) const
{
  SHFILEINFO Si;
  memset(&Si,0,sizeof(SHFILEINFO));

SHGetFileInfo(FileName.c_str(),FILE_ATTRIBUTE_NORMAL,&Si,sizeof(SHFILEINFO),
SHGFI_USEFILEATTRIBUTES|SHGFI_ICON|SHGFI_SMALLICON|SHGFI_SYSICONINDEX);
  li->StateIndex = Si.iIcon;
  }

Very simple, isn't it? 70% of the time everything is OK, but the problem is
that sometimes Si.Icon contains absolutely wrong index. I may call this
function twice for the same FileName (for example, .jpg or .doc file) and
Si.Icon will contain different values after both calls, so random icons will
be selected from the image list!!! I event tried to strcpy FileName to
char[] buffer, but nothing changed... I tried to pass only file extension to
SHGetFileInfo, but again - all the same...

I can't figure out any pattern in SHGetFileInfo behaviour, though I lost
several hours trying to find out what is wrong...

I use Win'2000 SP3. Any help (Remy!!!! SOS!!!) is welcome!

Dmitry