我正在使用此代码获取
shell图标(
Windows资源管理器中显示的图标).
有没有人有更快获取这些图标的经验? SHGetFileInfo看起来很慢.
有没有人有更快获取这些图标的经验? SHGetFileInfo看起来很慢.
procedure TForm2.Button1Click(Sender: TObject); var FileInfo: TSHFileInfo; begin FillChar(FileInfo,SizeOf(FileInfo),0); if SHGetFileInfo(PChar('c:\windows\'),FileInfo,SHGFI_ICON or SHGFI_SMALLICON or SHGFI_SYSICONINDEX) <> 0 then DrawIconEx(Canvas.Handle,10,FileInfo.hIcon,16,DI_IMAGE or DI_MASK); end;
谢谢!
尝试使用SHGFI_USEFILEATTRIBUTES标志.有关更多信息,请参阅文章
Tuning SHGetFileInfo for Optimum Performance
和
What does SHGFI_USEFILEATTRIBUTES mean?
.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。