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:

zusammenfalten · markieren

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 MSDN-Library durchsuchen

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.

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.

Location eines Icons einer Datei wie im Explorer auslesen

Location eines Icons einer Datei wie im Explorer auslesen

AW: Location eines Icons einer Datei wie im Explorer auslesen

AW: Location eines Icons einer Datei wie im Explorer auslesen

AW: Location eines Icons einer Datei wie im Explorer auslesen

Forumregeln

Zacherl Registriert seit: 3. Sep 2004 4.629 Beiträge Delphi 10.2 Tokyo Starter	#3 AW: Location eines Icons einer Datei wie im Explorer auslesen 29. Dez 2012, 16:16 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. Projekte: - GitHub (Profil, zyantific) - zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
	Zitat

Popov (Gast) n/a Beiträge	#4 AW: Location eines Icons einer Datei wie im Explorer auslesen 29. Dez 2012, 18:18 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.
	Zitat