delphi - システム ダイアログ アイコンを含むイメージリストをロードする方法

Question

TCustomImageListダイアログ ボックスで Windows が使用するすべてのシステム アイコン (警告、エラー、情報、確認などの標準アイコン)をロードする方法は?

Windows XP 以降で動作するソリューションを見つけたいと思います。

Answer 1

LoadImageおよびを参照してくださいLoadIcon。

簡単な例:

procedure TForm1.Button2Click(Sender: TObject);
var
  t_Icon: TIcon;

begin
  t_Icon := TIcon.Create();
  t_Icon.Handle := LoadImage( 0, MAKEINTRESOURCE(32513), IMAGE_ICON, 0, 0, LR_DEFAULTSIZE or LR_SHARED );

  if ( t_Icon.Handle <> 0 ) then
    ImageList1.AddIcon( t_Icon );

// .............

  t_Icon.Free();
end;