Question

有人可以找到从中拉出图标的文件夹＆gt; 我想只看到C：\ Program Files或HKEY_LOCAL_MACHINE \ SOFTWARE的注册表中的图标和名称，但不是两者。

uses
  ShellApi;

procedure LV_InsertFiles(strPath: string; ListView: TListView; ImageList: TImageList);
var
  i: Integer;
  Icon: TIcon;
  SearchRec: TSearchRec;
  ListItem: TListItem;
  FileInfo: SHFILEINFO;
begin
  // Create a temporary TIcon
  Icon := TIcon.Create;
  ListView.Items.BeginUpdate;
  try
    // search for the first file
    i := FindFirst(strPath + '*.*', faAnyFile, SearchRec);
    while i = 0 do
    begin
      with ListView do
      begin
        // On directories and volumes
        if ((SearchRec.Attr and FaDirectory <> FaDirectory) and
          (SearchRec.Attr and FaVolumeId <> FaVolumeID)) then
        begin
          ListItem := ListView.Items.Add;
          //Get The DisplayName
          SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo,
            SizeOf(FileInfo), SHGFI_DISPLAYNAME);
          Listitem.Caption := FileInfo.szDisplayName;
          // Get The TypeName
          SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo,
            SizeOf(FileInfo), SHGFI_TYPENAME);
          ListItem.SubItems.Add(FileInfo.szTypeName);
          //Get The Icon That Represents The File
          SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo,
            SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
          icon.Handle := FileInfo.hIcon;
          ListItem.ImageIndex := ImageList.AddIcon(Icon);
          // Destroy the Icon
          DestroyIcon(FileInfo.hIcon);
        end;
      end;
      i := FindNext(SearchRec);
    end;
  finally
    Icon.Free;
    ListView.Items.EndUpdate;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Assign a Imagelist to the ListView
  ListView1.SmallImages := ImageList1;
  // Show Listview in Report Style and add 2 Columns
  ListView1.ViewStyle := vsReport;
  ListView1.Columns.Add;
  ListView1.Columns.Add;
  LV_InsertFiles('C:\Windows\', ListView1, ImageList1);
end;

如何从我的程序文件夹中调用图标，但仅限于我想要的图标？例如，我只想展示limewire，norton并说例如winmx。如何创建代码以仅调用与我的代码中所需的图标匹配的图标？如果NORTON这个名字在我的代码中，它只会拉入诺顿吗？

回复malach ：是的，但这需要在我的网络中的另一台计算机上运行。我已经完成了所有代码，只需要让它只搜索我想要的名称。

我想在我的程序中搜索，只从我想要的文件中取回图标，而不是每个文件夹。

Answer 1

图标可以存储在多个地方。它们可以是ICO文件，或附加到可执行文件或附加到外部DLL的资源（ICL文件实际上只是包含ICO资源的DLL文件）。

您正在调用的SHGetFileInfo例程是一种获取代表特定文件的图标的方法，首先查看文件本身并查看它是否包含ICO资源，如果是，则返回...如果不是则它通过注册表查找文件扩展名以查看它是否附有图标，如果是，则返回。

Answer 2

您可以使用

Image.Picture.LoadFromFile('norton.ico');

加载某些图标。

然而，这些图标没有文件夹。如果需要，您可以使用资源编辑器从可执行文件中检索它们，或者在Web上搜索图标库以便为您提供。

另一种方法是只显示您在程序中提供列表的某些程序或扩展程序的图标。像这样：

      ListItem := ListView.Items.Add;
      //Get The DisplayName
      SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo,
        SizeOf(FileInfo), SHGFI_DISPLAYNAME);
      // StringListOfIncludedFiles includes all file names you want to show icon for
      // find returns true if it found an entry
      if StringListOfIncludedFiles.Find(FileInfo.szDisplayName, indexFound) then
        Listitem.Caption := FileInfo.szDisplayName;

提供自己的图标的主要问题是识别哪些图标属于哪些文件。没有简单的解决方案，但知道。

顺便提一下，程序中检索到的图标因PC而异，因为用户可以将不同的图标与程序关联起来。用户看到其他图标然后用于与文件相关联可能会令人不安。

用于delphi的图标是什么文件夹？

2 个答案: