通过文件名取类型图标和描述

cmd9x

于 2012-06-06 16:32:42 发布

阅读量452

点赞数

分类专栏： Delphi 文章标签： listview file delphi string function api

本文链接：https://blog.csdn.net/cmd9x/article/details/7638611

版权

Delphi 专栏收录该内容

44 篇文章 3 订阅

订阅专栏

本文介绍在DELPHI环境下实现本地与远程文件管理系统的技巧。通过使用API函数SHGetFileInfo来读取本地文件夹及文件信息，并根据不同文件类型调整参数。文中提供了关键代码示例，展示了如何设置列表视图的图标和文件类型。

摘要由CSDN通过智能技术生成

写进行远程文件管理系统时，需要同时浏览本地和远程的文件列表，本地列表读取很简单，DELPHI下有Demos\DelphiWin32\VCLWin32\VirtualListView，读取本地已存在的文件夹或文件时，使用API函数SHGetFileInfo，第2个参数为0；读取不存在的文件类型时第2个参数区别为

FILE_ATTRIBUTE_NORMAL(文件)，或FILE_ATTRIBUTE_NORMAL or FILE_ATTRIBUTE_DIRECTORY(文件夹）；
以下是关键代码

function GetUnknowFileInfo(const AFile: string; Attrs: DWORD): TSHFileInfo;
begin
  fillchar(Result, sizeof(TSHFileInfo), 0);
  if IsPathDelimiter(AFile, Length(AFile)) then
    Attrs := Attrs or FILE_ATTRIBUTE_DIRECTORY;
  SHGetFileInfo(PChar(AFile), Attrs, Result, SizeOf(TSHFileInfo),
                SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES
                or SHGFI_TYPENAME);
end;

procedure TForm1.SetListviewFile(typeName: string);
var
  Info: TSHFileInfo;
begin
  Info := GetUnknowFileInfo(pchar(typeName), FILE_ATTRIBUTE_NORMAL);
  with ListView1.Items.Add do begin
    ImageIndex := Info.iIcon;
    Caption := Info.szDisplayName;
    SubItems.add(Info.szTypeName);
  end;
end;

效果如下：