SmallIcon mit ExtractAssociatedIcon ???

[max666]

Hallo!

Weiß jemand wie man mit ExtractAssociatedIcon die SmallIcons ließt.

Mit folgender Procedure erhalte ich scheinbar immer nur die LargeIcon, da die Qualität nicht sehr gut ist, wenn sie in Menu-Punkten eingebunden werden.

Delphi-Quellcode:

procedure GetIconFromFile(const FileName: String; const Index: Word);
var apbuf: array [0..2*MAX_PATH] of Char;
  aindx: Word;
  icon1: TIcon;
  icon2: HIcon;
begin
  icon1:=TIcon.Create;
  StrPCopy(apbuf, FileName);
  aindx :=index;
  icon1.Handle:= ExtractAssociatedIcon(HInstance, apbuf, aindx);
  FrmMain.ImageList2.InsertIcon(index, icon1);
end;

Gruß aus dem Emsland!
max666

[edit=Admin]Delphi-Tags ([ delphi] ... [ /delphi]) eingefügt. Künftig bitte selber machen. Danke sehr. Mfg, Daniel[/edit]