如何获得文件夹在系统图标列表中的index(100分)

如何获得文件夹在系统图标列表中的index

function TForm1.GetIconIndex(mPath: string): Integer;<br>var<br>&nbsp; vSHDirInfo: TSHFileInfo;<br>begin<br>&nbsp; FillChar(vSHDirInfo, SizeOf(vSHDirInfo), 0);<br>&nbsp; SHGetFileInfo(PChar(mPath), FILE_ATTRIBUTE_DIRECTORY, vSHDirInfo, SizeOf(vSHDirInfo),SHGFI_SYSICONINDEX);<br>&nbsp; Result := vSHDirInfo.iIcon;<br>end; { GetIconIndex }

多谢