Via SHGetFileInfo Verzeichnis Icon bekommen

[dahead]

Hallo,

ich möchte für eine Listenansicht das Verzeichnis-Icon auslesen. Dafür verwende ich folgenden Code (Link):

Delphi-Quellcode:

function GetShellIcon(const SmallIcons: Boolean; const aPath: String): Integer;
var
  SFI: TSHFileInfo;
  SysIL, Flags: Cardinal;
begin
  Result := -1;
  if SmallIcons then
    Flags := SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES
  else
    Flags := SHGFI_SYSICONINDEX or SHGFI_LARGEICON or SHGFI_USEFILEATTRIBUTES;

  SysIL := SHGetFileInfo(@aPath[1], 0, SFI, SizeOf(SFI), Flags);
  if SysIL <> 0 then
   Result := SFI.iIcon;
  DestroyIcon(SysIL);
end;

Bei allen möglichen Dateitypen erhalte ich das korrekte Icon zurück (also '.exe' oder '.dll'). Nur wie komme ich an das Verzeichnis Icon ran? Ich habe schon alles mögliche probiert ('', 'Dir', 'Folder', usw.) - ohne Erfolg.

Bei mir auf dem System ist der korrekte Wert "5", aber ich schätze, dass sich der von System zu System unterscheidet, daher wollte ich ihn dynamisch via o.g. Funktion ermitteln. Hoffe da weiß jemand von euch weiter.

(PS: In der Registrierung unter "HKEY_CLASSES_ROOT\Folder\DefaultIcon" ist der Wert "%SystemRoot%\System32\shell32.dll,3".)

Danke!