获取外壳图标的最快方法

Question

我使用此代码来获取 shell 图标（Windows 资源管理器中显示的图标）。
有谁有过以更快的方式获取这些图标的经验吗？ SHGetFileInfo 似乎相当慢。

procedure TForm2.Button1Click(Sender: TObject);
var
  FileInfo: TSHFileInfo;
begin
  FillChar(FileInfo, SizeOf(FileInfo), 0);
  if SHGetFileInfo(PChar('c:\windows\'), 0, FileInfo, SizeOf(FileInfo),
    SHGFI_ICON or SHGFI_SMALLICON or SHGFI_SYSICONINDEX) <> 0 then 
    DrawIconEx(Canvas.Handle, 10, 10, FileInfo.hIcon, 0, 16, 16, 0, DI_IMAGE or 
      DI_MASK);
end;

谢谢！

Answer 1

也尝试使用 SHGFI_USEFILEATTRIBUTES 标志。请参阅文章调整 SHGetFileInfo 以获得最佳性能和SHGFI_USEFILEATTRIBUTES 的作用是什么是什么意思？ 了解更多信息。

Answer 2

我在使用SHGetFileInfo的时候就已经使用了缓存。除非它是 .exe 或 .ico 文件（也许还有更多），否则相同文件扩展名的图标将是相同的，因此当您显示目录列表时，您可以对相同类型的文件使用相同的图标，并且您不必再次调用（并等待）SHGetFileInfo。