SHGetFileInfo 函数用法

SHGetFileInfo函数

function SHGetFileInfo(pszPath: PAnsiChar; dwFileAttributes: DWORD;

var psfi: TSHFileInfo; cbFileInfo, uFlags: UINT): DWORD; stdcall;

pszPath 参数:指定的文件名。

当uFlags的取值中不包含 SHGFI_PIDL时,可直接指定;

当uFlags的取值中包含 SHGFI_PIDL时pszPath要通过计算获得,不能直接指定;

dwFileAttributes参数:文件属性。

仅当uFlags的取值中包含SHGFI_USEFILEATTRIBUTES时有效,一般不用此参数;

psfi 参数:返回获得的文件信息,是一个记录类型,有以下字段:

_SHFILEINFOA = record

hIcon: HICON; { out: icon } //文件的图标句柄

iIcon: Integer; { out: icon index } //图标的系统索引号

dwAttributes: DWORD; { out: SFGAO_ flags } //文件的属性值

szDisplayName: array [0..MAX_PATH-1] of AnsiChar; { out: display name (or path) } //文件的显示名

szTypeName: array [0..79] of AnsiChar; { out: type name } //文件的类型名

end;

cbFileInfo 参数:psfi的比特值;

uFlags 参数:指明需要返回的文件信息标识符,常用的有以下常数:

SHGFI_ICON; //获得图标

SHGFI_DISPLAYNAME; //获得显示名

SHGFI_TYPENAME; //获得类型名

SHGFI_ATTRIBUTES; //获得属性

SHGFI_LARGEICON; //获得大图标

SHGFI_SMALLICON; //获得小图标

SHGFI_PIDL; // pszPath是一个标识符

函数SHGetFileInfo()的返回值也随uFlags的取值变化而有所不同。

可见通过调用SHGetFileInfo()可以由psfi参数得到文件的图标句柄。但要注意在uFlags参数中不使用SHGFI_PIDL时,SHGetFileInfo()不能获得“我的电脑”等虚似文件夹的信息。

应该注意的是，在调用SHGetFileInfo()之前，必须使用 CoInitialize 或者OleInitialize 初始化COM,否则表面上能够使用，但是会造成不安全或者丧失部分功能。例如，一个常见的例子：如果不初始化COM,那么调用该函数就无法得到.htm/.mht/.xml文件的图标。

以下是两个例子：

1.获得系统图标列表：

//取得系统图标列表
uses
 ShellAPI
var
  ImageListHandle : THandle;
  FileInfo: TSHFileInfo;
//小图标
ImageListHandle := SHGetFileInfo('C:\',
                           0,
                           FileInfo,
                           SizeOf(FileInfo),
                           SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
//把图标列表同一个名叫ListView1的ListView控件的小图标关联。                          
SendMessage(ListView1.Handle, LVM_SETIMAGELIST, LVSIL_SMALL, ImageListHandle); 
//大图标   
ImageListHandle := SHGetFileInfo('C:\',
                           0,
                           FileInfo,
                           SizeOf(FileInfo),
                           SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
//把图标列表同一个名叫ListView1的ListView控件的大图标关联。                          
SendMessage(ListView1.Handle, LVM_SETIMAGELIST, LVSIL_NORMAL, ImageListHandle);

2.获得一个文件的显示名和图标

var
  sfi: TSHFileInfo;
 IconIndex : Integer;
//取图标的索引号等信息
SHGetFileInfo(PAnsiChar(FileName),
                0,
                sfi,
                sizeof(TSHFileInfo),
                ShellAPI.SHGFI_DISPLAYNAME or ShellAPI.SHGFI_TYPENAME or ShellAPI.SHGFI_LARGEICON or ShellAPI.SHGFI_ICON);
//显示名和图标在系统图标列表中的编号就分别在sfi.szDisplayName和sfi.iIcon中

--------------------------------------------------------------------------------------

在进行一些与Shell有关的编程时，经常会用到SHGetFileInfo()函数。比如当你想获得一个文件的表示名，图标或者系统的图标列表时，用SHGetFileInfo()函数会比用IShellFolder简单不少。

以下是两个例子：

1.获得系统图标列表：

HIMAGELIST hImageList;

SHFILEINFO sfi;

hImageList = (HIMAGELIST)SHGetFileInfo(L"",

0,

&sfi,

sizeof(SHFILEINFO),

SHGFI_SYSICONINDEX | SHGFI_SMALLICON);

// 把图标列表同一个名叫m_FileList的List控件关联。

m_FileList.SendMessage( LVM_SETIMAGELIST, (WPARAM)LVSIL_SMALL, (LPARAM)hImageList);

2.获得一个文件的显示名和图标

TCHAR szFilePath[MAX_PATH];

SHFILEINFO sfi;

hImageList = (szFilePath,

0,

&sfi,

sizeof(SHFILEINFO),

SHGFI_DISPLAYNAME | SHGFI_SYSICONINDEX | SHGFI_SMALLICON )

// 显示名和图标在系统图标列表中的编号就分别在sfi.szDisplayName和sfi.iIcon中



应该注意的是，在调用SHGetFileInfo()之前，必须使用 CoInitialize 或者OleInitialize 初始化COM,否则表面上能够使用，但是会造成不安全或者丧失部分功能。例如，一个常见的例子：如果不初始化COM,那么调用该函数就无法得到.htm/.mht/.xml文件的图标。