Icons aus shell32.dll auslesen

[maze2000]

Hallo allerseits,

ich würde gerne Icons aus der shell32.dll auslesen und einem TImage zuweisen. Basierend auf einem anderen Thread im Forum habe ich es mit folgender Funktion versucht:

Delphi-Quellcode:

Function TfrmMain.IconLesen(icon_nr_s : string) : TIcon;

var
h :HINST;

begin
  Result := nil; 
  h := LoadLibrary('c:\windows\system32\shell32.dll');
  try
    if h <> 0 then
    begin
      Result := TIcon.Create;
      Result.Handle := LoadIcon(h, icon_nr_s);
    end;
  finally
    FreeLibrary(h);
  end;
end;

Es funktioniert aber leider nicht, zumal ich leider auch nicht die Nummern bzw. die Bezeichnungen der Ressourcen in der shell32.dll kenne. In h habe ich stets einen korrekten Handle, aber Result.Handle bleibt Null. Würde mich riesig freuen, wenn ihr mir weiterhelfen könnt! Ich würde gerne bestimmte Icons aus der shell32.dll in den Dialogen meiner Anwendung benutzen.

Delphi rules,
Matthias