VirtualStringTree - SHGetFileInfo hängt Programm auf / Canvas erlaubt kein Zeichnen

[DieDolly]

Gibt es dazu irgendwo Beispiele? Ich kann mir darunter überhaupt nichts vorstellen leider.
Ich hab das immer mit SHGetFileInfo gemacht weil ich dachte das sei richtig.

Und das hier im FormCreate scheint ja mal für absolut gar nichts sinnvoll zu sein

Delphi-Quellcode:

 SmallImages := TImageList.Create(Self);
 SmallImages.Handle := SHGetFileInfo('', 0, Info, SizeOf(TSHFileInfo), SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
 SmallImages.ShareImages := True;
 VST.Images := SmallImages;