Location eines Icons einer Datei wie im Explorer auslesen

[blablab]

Hallo!

Der Titel ist vielleicht etwas schräg, deshalb nochmal ausführlich: Ich möchte gerne an das Icon einer belieben Datei herankommen und zwar an das Icon, das im Explorer angezeigt wird. Das heißt also z.B. bei einer txt-Datei hätte ich gerne dieses Zeichenblock-Symbol, und bei einer exe-Datei eben das Symbol der Anwendung. Allerdings möchte ich nicht nur ein 16x16 oder ein 32x32 Symbol, sondern alle verfügbaren Symbole. Deshalb habe ich das ganze in 2 Schritte aufgeteilt. Im ersten Schritt finde ich heraus, in welcher Datei das Symbol gespeichert ist und welchen Index das verwendete Symbol hat. Und im 2. Schritt extrahiere ich alle Symbole mit dem entsprechenden Index aus der Datei.
Der 2. Schritt scheint zu funktionieren, Probleme habe ich allerdings mit dem 1. Schritt.
Bisher habe ich versucht direkt in der Registry nachzugucken. In vielen Fällen kann man hier relativ leicht das DefaultIcon einer Datei auslesen, allerdings funktioniert das nicht immer. Deshalb würde ich gerne eine Windows-Funktion benutzen die das kann. Aber hier werde ich einfach nicht fündig...

Grüße
blablab

[dataspider]

Ich hab für einen Mail - Client zur Darstellung der Dateien im ListView folgende Routine:

Delphi-Quellcode:

// ShellAPI in Uses
function GetIconIndex(const AFileName: string): Integer;
var
  FileInfo : TSHFileInfo;
begin
  Result := -1;
  if SHGetFileInfo(PChar(AFilename), 0, FileInfo, SizeOf (FileInfo), SHGFI_ICON or SHGFI_SMALLICON) <> 0 then
  begin
    ImageList_AddIcon(ImageList.Handle, FileInfo.hIcon);
    DestroyIcon(FileInfo.hIcon);
    Result := ImageList.Count -1;
  end;
end;

Die Icons liegen dann in einer ImageList.

Frank

[Zacherl]

Ansonsten gibts auch noch ExtractAssociatedIcon. Das liefert dir z.b. bei einer EXE, das spezifische Icon und bei allen Dateitypen, die keine eigenen Icon Resourcen besitzen, das assoziierte Symbol.

[Popov]

Ich hab vor Jahren mal was veröffentlicht:

http://www.entwickler-ecke.de/viewtopic.php?t=21354
http://www.entwickler-ecke.de/viewtopic.php?t=21351

Vielleicht kannst du etwas davon gebrauchen. Inwieweit alles noch stimmt oder es inzwischen Besseres gibt, weiß ich nicht.