Icons aus shell32.dll auslesen

[Matze]

Runger und himitsu haben hier einen Code-Schnipsel zusammengetragen, mit dem man die Icons aus der shell32.dll auslesen kann:

Delphi-Quellcode:

function GetIcon(icon_nr_s: cardinal): TIcon;
begin
  Result := TIcon.Create;
  Result.Handle := ExtractIcon(Application.Handle, 'c:\windows\system32\shell32.dll', icon_nr_s);
end;

Um den Pfad nicht explizit angeben zu müssen, kann man ihn auch per GetSpecialFolder ermitteln, was empfehlenswert ist.