ExtractIconでアイコンの数を取得するには？ (ID:12994)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 小さいアイコンも取り出すのなら ExtractIconEx です パラメーターが違うので解説を読んだ方がいいです。 http://msdn.microsoft.com/library/en-us/winui/winui/windowsuserinterface/resources/icons/iconreference/iconfunctions/extracticonex.asp http://hp.vector.co.jp/authors/VA009712/take/delphi/kabesys.htm XPは大丈夫でしょうけど 数をもらうときのメモリ関係のがどこのバージョンまでひきずっているかは、 しらべていないのでわかりません。 Win98ってのが微妙。 ８年くらいまえに書いたコード削りました 参考にどうぞ uses ShellApi; procedure TForm1.Button1Click(Sender: TObject); var IconHandle : HIcon; TmpIcon : TIcon; i : integer; begin i := 0; IconHandle := ExtractIcon(Application.Handle,PChar(FileName) , i); while (IconHandle>1) do // 0ない。 1ファイル形式が違う begin inc(i); TmpIcon := TIcon.Create; try TmpIcon.Handle := IconHandle; { 処理 } // Image1.Picture.Icon.Assign(TmpIcon); finally TmpIcon.Free; end; IconHandle := ExtractIcon(Application.Handle,PChar(FileName) , i); end; // Caption := IntToStr(i); // アイコン数 end;