[対象バージョン]
Delphi 3.0J
[説明]
ExeファイルやDLLファイルからアイコンを抽出する方法です。
[対処法]
Windows APIの ExtractIconを使用します。この関数の引数の最後の数値は取得するアイコンのインデックスを表わします。ゼロがひとつめのアイコンです。-1を指定するとアイコンの総数を得る事ができます。
[サンプルソース]
var icoData : TIcon; begin icoData := TIcon.Create; icoData.Handle := ExtractIcon( hInstance, 'Delphi32.exe', 0); Image1.Picture.Icon.Assign (icoData); icoData.Free;