SHGetFileInfo函數(shù)
function SHGetFileInfo(pszPath: PAnsiChar; dwFileAttributes: DWORD;
  var psfi: TSHFileInfo; cbFileInfo, uFlags: UINT): DWORD; stdcall;
pszPath 參數(shù):指定的文件名。
當(dāng)uFlags的取值中不包含 SHGFI_PIDL時(shí),可直接指定;
當(dāng)uFlags的取值中包含 SHGFI_PIDL時(shí)pszPath要通過(guò)計(jì)算獲得,不能直接指定;
dwFileAttributes參數(shù):文件屬性。
僅當(dāng)uFlags的取值中包含SHGFI_USEFILEATTRIBUTES時(shí)有效,一般不用此參數(shù);
psfi 參數(shù):返回獲得的文件信息,是一個(gè)記錄類型,有以下字段:
  _SHFILEINFOA = record
    hIcon: HICON;                      { out: icon }  //文件的圖標(biāo)句柄
    iIcon: Integer;                    { out: icon index }     //圖標(biāo)的系統(tǒng)索引號(hào)
    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 參數(shù):psfi的比特值;
uFlags 參數(shù):指明需要返回的文件信息標(biāo)識(shí)符,常用的有以下常數(shù):
    SHGFI_ICON;           //獲得圖標(biāo)
    SHGFI_DISPLAYNAME;    //獲得顯示名
    SHGFI_TYPENAME;       //獲得類型名
    SHGFI_ATTRIBUTES;     //獲得屬性
    SHGFI_LARGEICON;      //獲得大圖標(biāo)
    SHGFI_SMALLICON;      //獲得小圖標(biāo)
    SHGFI_PIDL;           // pszPath是一個(gè)標(biāo)識(shí)符
函數(shù)SHGetFileInfo()的返回值也隨uFlags的取值變化而有所不同。
可見(jiàn)通過(guò)調(diào)用SHGetFileInfo()可以由psfi參數(shù)得到文件的圖標(biāo)句柄。但要注意在uFlags參數(shù)中不使用SHGFI_PIDL時(shí),SHGetFileInfo()不能獲得“我的電腦”等虛似文件夾的信息。
應(yīng)該注意的是，在調(diào)用SHGetFileInfo()之前，必須使用 CoInitialize 或者OleInitialize 初始化COM,否則表面上能夠使用，但是會(huì)造成不安全或者喪失部分功能。例如，一個(gè)常見(jiàn)的例子：如果不初始化COM,那么調(diào)用該函數(shù)就無(wú)法得到.htm/.mht/.xml文件的圖標(biāo)。
以下是兩個(gè)例子：
1.獲得系統(tǒng)圖標(biāo)列表：
//取得系統(tǒng)圖標(biāo)列表
uses
ShellAPI
var
  ImageListHandle : THandle;
  FileInfo: TSHFileInfo;
//小圖標(biāo)
ImageListHandle := SHGetFileInfo('C:\',
                           0,
                           FileInfo,
                           SizeOf(FileInfo),
                           SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
//把圖標(biāo)列表同一個(gè)名叫ListView1的ListView控件的小圖標(biāo)關(guān)聯(lián)。                           
SendMessage(ListView1.Handle, LVM_SETIMAGELIST, LVSIL_SMALL, ImageListHandle);  
//大圖標(biāo)   
ImageListHandle := SHGetFileInfo('C:\',
                           0,
                           FileInfo,
                           SizeOf(FileInfo),
                           SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
//把圖標(biāo)列表同一個(gè)名叫ListView1的ListView控件的大圖標(biāo)關(guān)聯(lián)。                           
SendMessage(ListView1.Handle, LVM_SETIMAGELIST, LVSIL_NORMAL, ImageListHandle);
2.獲得一個(gè)文件的顯示名和圖標(biāo)
var
  sfi: TSHFileInfo;
IconIndex : Integer;
//取圖標(biāo)的索引號(hào)等信息
SHGetFileInfo(PAnsiChar(FileName),
                0,
                sfi,
                sizeof(TSHFileInfo),
                ShellAPI.SHGFI_DISPLAYNAME or ShellAPI.SHGFI_TYPENAME or ShellAPI.SHGFI_LARGEICON or ShellAPI.SHGFI_ICON);
//顯示名和圖標(biāo)在系統(tǒng)圖標(biāo)列表中的編號(hào)就分別在sfi.szDisplayName和sfi.iIcon中