SHGetFileInfo

SHGetFileInfo函式
function SHGetFileInfo(
LPCTSTR pszPath,
DWORD dwFileAttributes,
SHFILEINFO *psfi,
UINT cbFileInfo,
UINT uFlags
);
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中