delphi - 如何使用系统对话框图标加载图像列表

Question

如何加载包含 Windows 在对话框中使用的所有系统图标的 TCustomImageList(标准图标，如警告、错误、信息、确认..)？

我想找到一个适用于 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;