WINAPI:アイコン関連 - rai002 @ ウィキ

アイコン関連

リンク：MSDN

アドレス指定で取得可能
第二引数にフルパスでOK

アイコンをビットマップに変換

リンク
procedure TForm1.Button1Click(Sender: TObject);
Var
Ico :TIcon;
begin

　Image1.Width :=32;
　Image1.Height :=32;

　//アイコンオブジェクトを生成
　Ico :=TIcon.Create;
　//アイコンファイルを読み込む
　Ico.LoadFromFile('C:\windows\Winupd.ico') ;
　//アイコンを描画
　DrawIconEx(Image1.Canvas.Handle, 0, 0, Ico.Handle, 0, 0, 0, 0, DI_NORMAL);
　//アイコンをビットマップファイルで保存
　Image1.Picture.SaveToFile('C:\windows\ﾃﾞｽｸﾄｯﾌﾟ\a.bmp');
　//解放
　Ico.Free;

end;