2

前段时间，我曾询问过一种最快的获取 shell 图标的方法来调整获取图标的速度，但问题是某些系统快捷方式（lnk 文件）没有显示正确的图标。

作为示例之一可能是Windows Fax and Scan.lnk文件，如果您使用以下代码...

procedure TForm2.Button1Click(Sender: TObject);
var
  Icon: TIcon;
  FileInfo: TSHFileInfo;
begin
  FillChar(FileInfo, SizeOf(FileInfo), 0);
  SHGetFileInfo(PChar('C:\Windows Fax and Scan.lnk'), FILE_ATTRIBUTE_NORMAL, 
    FileInfo, SizeOf(FileInfo), SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or
    SHGFI_SMALLICON);
  Icon := TIcon.Create;
  try
    Icon.Handle := FileInfo.hIcon;
    Canvas.Draw(10, 10, Icon);
  finally
    Icon.Free;
  end;
end;

显示而不是这个图标...

在此处输入图像描述

某种默认的快捷方式图标...

在此处输入图像描述

您知道如何从该快捷方式文件中获取系统图标（第一个图像中的那个）吗？

4

1 回答 1

1

SHGFI_USEFILEATTRIBUTES尝试不访问磁盘，这意味着您可以告诉它在a.txt该文件实际不存在的情况下进行查找，并且仍然为您提供 .txt 文件的通用图标。安装类似这样的东西可能不会给出正确的结果，这需要调用自定义图标处理程序并可能访问磁盘。由于 .lnk 文件存储图标的位置，因此如果不访问磁盘（不包括可能的缓存），您将无法访问此信息。

根据 MSDN， IExtractIcon比 SHGetFileInfo 快，但如果你真的想要速度，你应该显示通用图标并在后台线程上获取真正的图标......

于 2012-06-11T13:57:02.297 回答