Wie kann ich ein Icon aus der Registry auslesen?

[emsländer]

Zitat von OregonGhost:

Zitat:

Wie kann ich das Icon denn "einlesen" ?

Ungefähr so:

Delphi-Quellcode:

uses
  ShellAPI;

var
  wIndex: Word;
  iconHandle: THandle;

...

iconHandle = ExtractAssociatedIcon(hInstance, 'DerPfadZuDeinerDatei', wIndex);

Dann kannst du mit dem iconHandle machen, was du willst (hab gerade keine Delphidokumentation zur Hand, aber daraus lässt sich sicherlich einfach ein TIcon machen). Ach so, nicht vergessen, das Icon irgendwann mit DestroyIcon wieder freizugeben

SirThornberrys Vorschlag mit SHGetFileInfo ist sicherlich auch einen Blick wert, da hatte ich gar nicht dran gedacht.
[Auch Edit ]Da du die Symbole wohl auch für lokal nicht-existente Dateien brauchst, kommt SHGetFileInfo SirThornberry folgend wohl doch nicht in Frage [/Edit]

Nun die Gretchenfrage: Wie bekomme ich das Icon denn nur anhand der Extension? Denn die Datei existiert ja lokal gar nicht

Gruss

EL

[mkinzler]

Zitat:

Nun die Gretchenfrage: Wie bekomme ich das Icon denn nur anhand der Extension? Denn die Datei existiert ja lokal gar nich

Endung aus Dateinamen extrahieren und Verknüpfung aus Registry lesen ( siehe oben)