関連づけを元にファイルからアイコンを取り出す

EXEやDLLファイルからアイコンを取り出すには ExtractIconを使用しましたが関連付けされているファイルのアイコンは取得できません。関連付けされているファイルのアイコンを取得するには ExtractAssociatedIconを使用します。ExtractIconとは若干違うので注意知てください。

■ 関連づけをもとにファイルからアイコンを取り出す例 
var
  icoData    :     TIcon;
  wrdIdx     :     word;
begin
  wrdIdx                :=     0; //アイコンのインデックス
  icoData               :=     TIcon.Create;
  icoData.Handle        :=     ExtractAssociatedIcon(hInstance, 
                                     PChar('c:\Borland\Delphi32.pas'), 
                                     wrdIdx); 
  Image1.Picture.Icon.Assign   (icoData);
  icoData.Free;

関連項目

Exe/Dllからアイコンを取り出す