Schon seit einer Ewigkeit lasse ich mir in einer VirtualStringTree eine Dateiliste mit den dazugehören Icons folgendermaßen anzeigen
Delphi-Quellcode:
procedure TForm8.VSTGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer);
var
Info: TSHFileInfo;
sFN: string;
begin
// ...
sFN := 'C:\TestDatei.txt';
SHGetFileInfo(PChar(sFN), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
ImageIndex := Info.iIcon;
end;
Das klappt auch wunderbar. Aber ist das irgendwie anders und besser möglich?