目录中的所有文件添加到listview中

    TSearchRec sr;
    TListItem  *list;
    HICON hicon;
    String sTemp;
    TIcon *Icon=new TIcon();
    int iCount = 0;
    ImageList1->Clear();
    ListView1->Clear();
    if (FindFirst(sPath+sCatption+"//*.*",faAnyFile | faArchive ,sr) == 0)
    {
        while ( FindNext ( sr ) == 0)
        {
            Application->ProcessMessages();
            if (sr.Name == "..")
            {
                continue;
            }
            sTemp = sPath+sCatption+"//"+sr.Name;
            hicon = ExtractIcon(HInstance,sTemp.c_str(),0);
            Icon->Handle = hicon;
            ImageList1->AddIcon( Icon );
            list = ListView1->Items->Insert(iCount);
            list->Caption= sr.Name.SubString(1,sr.Name.Length()-4);
            list->ImageIndex = iCount;
            iCount ++;
        }

    }
    FindClose(sr);
    Icon->Free();
    return;