Ungefähr so?
FormCreate
Delphi-Quellcode:
SmallImages := TImageList.Create(Self);
SystemImageList := SHGetFileInfo('', 0, Info, SizeOf(TSHFileInfo), SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
SmallImages.Handle := SystemImageList;
SmallImages.ShareImages := True;
VST.Images := SmallImages;
InitNode
Delphi-Quellcode:
SHGetFileInfo(PChar(FileName), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), SHGFI_USEFILEATTRIBUTES or SHGFI_SYSICONINDEX or SHGFI_ICON or SHGFI_SMALLICON);
ImageList_AddIcon(SmallImages.Handle, Info.iIcon);
DestroyIcon(Info.iIcon); // Mit dieser Zeile sehe ich dann keine Icons
Ach das funktioniert doch eh nicht. Deinen Code verstehe ich nicht und auch keine Ahnung wo der hin soll, welche Variablentypen das sind, wie ich das am Ende anzeige usw.