VirtualStringTree - Icon zu Dateinamen anzeigen besser möglich?

Schon seit einer Ewigkeit lasse ich mir in einer VirtualStringTree eine Dateiliste mit den dazugehören Icons folgendermaßen anzeigen

markieren

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?

VirtualStringTree - Icon zu Dateinamen anzeigen besser möglich?

VirtualStringTree - Icon zu Dateinamen anzeigen besser möglich?

Forumregeln