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!

[dahead]

weiß keiner von euch rat?

[ichbins]

mach mal

Delphi-Quellcode:

  path='';

und versteck deinen Online-Status nicht. Da weiss man nie, ob es noch was bringt, was zu schreiben :-D

[dahead]

hab ich schon probiert (s.o.) - ohne erfolg.

[Flocke]

Lass mal das SHGFI_USEFILEATTRIBUTES weg und gib einen existierenden Verzeichnisnamen an, z.B. 'C:\' - dann solltest du das korrekte Icon bekommen.

[SirThornberry]

dann sollte er aber das Laufwerksicon von C bekommen was er nicht will. Aber so ähnlich würd ichs auch machen, einfach merhere Standardordner durchprobieren bis einer dabei ist der kein Laufwerk ist (zum Beispiel das Anwendungsverzeichnis des users) und dann davon das Icon nehmen.

[dahead]

ahja, das funktioniert! allerdings nur mit C:\Windows, da C:\ ja ein Laufwerk ist. Danke!

mhh, jetzt frage ich mich nur, welches Verzeichnis ich standardmäßig abfragen soll um das icon zu erhalten... ist ja nicht immer C:\Windows.

edit: ich nehm jetzt einfach mein das verzeichnis, in dem sich mein programm befindet. das sollte vorerst reichen.

[Christian Seehase]

Moin dahead,

falls Du ein anderes auf dem System existierendes Verzeichnis ermitteln willst, könntest Du Dir auch mit SHGetSpecialFolderPath behelfen.

[dahead]

Morgen,

ja, die Funktion kenne ich. Ich hatte nur gehofft, dass es da eine Standard-Lösung gibt, um das Verzeichnis-Icon auszulesen (beispielsweise immer 0 oder so). Vielleicht werde ich es über die Registry lösen, oder wie du schreibst über ein System-Verzeichnis. Danke für den Hinweis!

[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 :zwinker: