获取shell图标的最快方法

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标志.请参阅文章Tuning SHGetFileInfo for Optimum Performance和What does SHGFI_USEFILEATTRIBUTES mean?更多信息.