LoadImageを使用して小さなOEMアイコンをロードする

Question

私のコードはLoadImage仕様に準拠していますが、明示的に指定されたディメンションにもかかわらず、読み込まれたイメージは最大PNG以外のアイコンです。

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    Image1.Picture.Icon.Handle := LoadImage(
    0, 
    MakeIntResource(OIC_SHIELD), 
    IMAGE_ICON, 
    GetSystemMetrics(SM_CXSMICON), 
    GetSystemMetrics(SM_CYSMICON), 
    LR_SHARED 
); 
    Win32Check(Image1.Picture.Icon.HandleAllocated); 

    OutputDebugString(PChar(Format('%d×%d', [ 
    Image1.Picture.Icon.Width, 
    Image1.Picture.Icon.Height 
    ]))); // 128×128 
end; 

注：this questionへの答えに指定されている私は（基本的にバックLoadIconセマンティクスに落下する）新しい​​セマンティクスに準拠するようにではなく、明示的なモジュールおよびリソースIDに依存することを好みます。​​スペックから

---

引用は正確に（所望の寸法を無視して、以前にロードされたストック・リソースを失敗したり、使用するか）相互に排他的LoadImageの行動と私の問題を概説している - Adrian McCarthy's answerを参照してください。

---

OIC_SHIELDは、Windows 6.0以上、特定のですが、同じことは、バージョン4.0以降のWindowsに存在する他の株式のアイコン（OIC_xxx定数）で発生します。あなたがにリンクされているLoadImageのドキュメントのLR_SHARED上のNotesから

Answer 1

：

この機能は関係なく、要求されたサイズの、要求されたリソース名と、キャッシュ内の最初の画像を検索します。

残念ながら、あなただけドロップすることはできませんLR_SHAREDので：

システムアイコンやカーソルをロードし、あなたがLR_SHAREDを使用しなければならないか、機能がリソースをロードするために失敗します。

これは問題を説明していますが、それについて何をすべきかは明確ではありません。 SHGetStockIconInfoを使用できます。それにはVista +が必要ですが、シールドアイコンを手に入れようとしているので、すでにVista +に限られていると思います。

私は.NETプログラマーではありませんが、API to get the shield iconがあるようです。

Answer 2

Vista以降ではSHGetStockIconInfoを使用し、他のすべてのオペレーティングシステムでは他の質問の解決策を使用してください。