アイコンファイルをBMPファイルに変換する

アイコンファイルをBMPファイルに変換する

ちょっぴり反則技かな？

■必要なコンポーネント

Button
Image

■使用するAPI関数

DrawIconEx（アイコンを描画する）

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

■Ico->Bmp変換

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;

Win32APIのページへ