Danke, das hab ich schon.
Meinst du, man sollte in psfi schon ein paar Werte reinschreiben, bevor
shgetfileinfo(pansichar(filename),1,psfi,1,1);
aufgerufen wird ?
Hab das im Forum gefunden:
Delphi-Quellcode:
tmpImgLst.Handle := SHGetFileInfo(PChar(FName),0,FileInfo,sizeof(FileInfo),SHGFI_SYSICONINDEX or SHGFI_ICON);
tmpImgLst.GetBitmap(FileInfo.iIcon,tmpBitmap);
Meinst du, das hilft uns weiter?