Da ich grad auf der Suche nach einem ähnlichen Problem über diesen alten Thread gestolpert bin, hier mein Vorschlag:
Delphi-Quellcode:
if IsFolder then
Attrib := FILE_ATTRIBUTE_DIRECTORY
else
Attrib := FILE_ATTRIBUTE_NORMAL;
SysIL := SHGetFileInfo(@aPath[1], Attrib , SFI, SizeOf(SFI), Flags);
Achja, weiß irgendwer wie man das Icon für "Arbeitsplatz", "Eigene Dateien", "Netzwerkumgebung" und Co. ermitteln kann?
EDIT:
gefunden!
http://www.delphipraxis.net/internal...=641170#641170
Man man man! Warum schau ich nicht gleich in die
DP rein
