Wie lade ich eine Bildliste mit Systemdialogsymbolen?

Question

Wie lade ich eine TCustomImageList mit allen von Windows verwendeten Systemicons in Dialogfeldern (Standardsymbole wie Warnung, Fehler, Information, Bestätigung ...)?

Ich möchte eine Lösung finden, die unter Windows XP arbeitet und später.

Answer 1

Siehe LoadImage und LoadIcon.

Schnell Beispiel:

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;