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!