EXE/DLLからアイコンを抽出して保存する

■使用するコンポーネント

■使用するAPI関数

■その他

■ソースは下記のようになります。

■EXE/DLLからアイコンを抽出して保存する処理
procedure TForm1.Button1Click(Sender: TObject);
var
Icon: TIcon;
begin

　If OpenDialog1.Execute=True then
　begin
　　Icon := TIcon.Create;
　　Icon.Handle := ExtractIcon(hInstance, Pchar(OpenDialog1.FileName), 0);
　　Image1.Picture.Icon := Icon;
　　Icon.Free;
　end;


end;

procedure TForm1.Button2Click(Sender: TObject);
begin

　if SavePictureDialog1.Execute then

　//ファイルを保存
　Image1.Picture.SavetoFile(SavePictureDialog1.FileName);

end;



Win32APIのページへ