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.

[Der_Unwissende]

Hey,
tolle Funktion, aber wenig Hilfreich oder? Ich meine ok, wenn man weiß dass man das Icon icon_nr_s möchte, toll, wenn ich aber gar nicht weiß an welcher Stelle sich welches Icon befindet...
Vorallem bekommst du hier ein Gültiges TIcon mit ungültigem Handle, weiß nicht ob dass so erwünscht ist. Es sollte also mindestens die Gültigkeit des Handles überprüft werden

Delphi-Quellcode:

function GetIcon(icon_nr_s : Cardinal; const FileName : String) : TIcon;
var handle : HICON;
begin
  result := nil;
  handle := ExtractIcon(Application.Handle, PChar(FileName), icon_nr_s);
  if handle <> 0 then
    begin
      Result := TIcon.Create;
      Result.Handle := handle;
    end; // if handle <> 0  
end; 

function GetIconCount(const FileName : String) : HICON;
begin
  result := 0;
  result := ExtractIconEx(PChar(FileName), -1, result, result, 0);
end;