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]