CODEWITHSUNDEEP
delphiwinapiiconsstandard-icons
Fabrizio
Fabrizio

Reputation: 8043

How to load imagelist with system dialog icons

How to load a TCustomImageList with all system icons used by Windows in dialog boxes (Standard icons like warning, error, information, confirmation..)?

enter image description here

I would like to find a solution which works on Windows XP and later.

Upvotes: 4

Views: 1304

Answers (1)

Old Skull
Old Skull

Reputation: 265

See LoadImage and LoadIcon.

Quick example:

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;

Upvotes: 6

Related Questions