ファイルからアイコンを取得する

//---------------------------------------------------------------------------
bool __fastcall GetSmallIcon(AnsiString AFilePath, TIcon* AIcon)
{
        SHFILEINFO fileInfo = {0};
        if(reinterpret_cast<HANDLE>(SHGetFileInfo(
                AFilePath.c_str(),
                0,
                &fileInfo,
                sizeof(SHFILEINFO),
                SHGFI_ICON | SHGFI_SHELLICONSIZE | SHGFI_SMALLICON)) == NULL) {
                return false;
        }
        AIcon->Handle = CopyIcon(fileInfo.hIcon);
        return true;
}
//---------------------------------------------------------------------------