実行モジュールのストックアイコンを描画する

ここでは自モジュールのストックアイコンを取り出して描画します。
サンプルを実行すると下記のようにアイコンが描画されます。



■必要なコンポーネント

■使用するAPI関数

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

■ストックアイコンを描画する処理
procedure TForm1.Button1Click(Sender: TObject);
var
hWnd: array[0..5] of integer;
i 　: integer;
begin

　for i := 0 To 5 do
　begin

　　//ストックアイコンのハンドルを取得
　　hWnd[i] := LoadIcon(0, IDI_APPLICATION + i) ;
　　//アイコンを描画
　　DrawIconEx(Form1.Canvas.Handle, i * 32 + 30, 20, hWnd[i], 0, 0, 0, 0, DI_NORMAL);

　end;

end;


Win32APIのページへ