Via SHGetFileInfo Verzeichnis Icon bekommen

[gmc616]

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