Es sind dennoch genug und ich möchte möglichst sparend arbeiten, je weniger Last desto besser.
Ich habe das eigentliche Zuweisen der Icons noch nicht eingebaut, es gibt nämlich den Fehler, es seien die Systemressourcen erschöüft. Warum ?
Delphi-Quellcode:
Icon := TIcon.Create;
GetExtIcon(Ext, Icon, False);
if Icons.IndexOf(Icon) = -1 then
Icons.Add(Icon);
TreeData.fCaption := ExtractFileName(Directory+SR.Name);
TreeData.fTyp := GetExtDes(Ext, False);
AddVSTStructure(VST, nil, TreeData);