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

[neolithos]

Ich mach das für gewöhnlich über diese Function ExtractIcon.

[runger]

Hallo,

ändere das Ganze so um dann geht's:

Delphi-Quellcode:

Function IconLesen(icon_nr_s : cardinal) : TIcon;

var
h :HINST;

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

unter uses bindest du shellapi ein und im Aufruf gibst du eine Zahl als Idendifikation an. Den Pfad für shell32.dll musst du eventuell korridieren.

Viel Spass Rainer

[himitsu]

@runger
so wie ich das jetzt sehe, dann wird bei deinem Code doch das Handle auf shell32.dll garnicht verwendet, demnach könnte dann ja das Ganze mit LoadLibrary entfallen?

Delphi-Quellcode:

Function IconLesen(icon_nr_s : cardinal) : TIcon;
begin
  Result := TIcon.Create; 
  Result.Handle := ExtractIcon(application.handle,'c:\windows\system32\shell32.dll', icon_nr_s);
end;

[runger]

Hallo danke,

das hab ich verpennt! Hab den Code nur soweit geändert, dass er funktioniert.


Danke
Rainer

[maze2000]

Super, es funktioniert!!!!!

Vielen Dank, ihr seid die Besten!

Schönen Tag noch,
Matthias