var<br> shfi: TSHFileInfo;<br> Filename: string;<br> begin<br> Filename := ExtractFilePath(fFilename) + SearchRec.Name;<br> SHGetFileInfo(PChar(Filename), 0, shfi, SizeOf(shfi), SHGFI_TYPENAME or SHGFI_SYSICONINDEX or SHGFI_DISPLAYNAME);<br> ....<br> shfi.szTypeName;//就是这个了,随你怎么处理