Icon einer Datei auslesen

[R2D2]

Momentan lese ich mit

Delphi-Quellcode:

ic: TIcon
...
ico.Handle := ExtractIcon(Application.Handle, PChar('C:\Test.exe'), 0);
Bilder.Addicon(ico);

Icons aus einer Datei aus. Das funktionniert alledings nur bei .exe-Dateien.

Gibt es eine Möglichkeit, dies auch bei Dateien zu tun (Besipielsweise .doc) um die Symbole wie im Explorer anzuzeigen?

[markusj]

Bei Doc musst du das Icon auch aus einer Exe extrahieren.
Nämlich aus der Winword.exe
Du musst in der Registry extrahieren, welche Datei das Icon sponsort und das dann extrahieren.

mfG

Markus

[R2D2]

Das dachte ich auch, ich habe bloß gehofft, es ginge leichter. :wall:

[ringli]

http://www.delphipraxis.net/internal...ect.php?t=1028

[Martin K]

Oder hier, dieser Code!

Einfach mal die Suche verwenden :wink:

[SirThornberry]

Wenn du als Ausgangsbasis bisher ExtractIcon verwendest hast so wäre für diesen Zweck jetzt entsprechend ExtractAssociatedIcon eine Alternative.