Icon aus beliebiger Datei extrahieren (z.B. *.lnk)

[Martin K]

Danke schon mal für deinen Code,
aber da kommen bei mir versch. "Undeclared identifier", z.B. bei 'WideFileExists'.
Fehlt da ein Eintrag in uses ?

bei EXE-Dateien ist das nochmal was anderes, weil das Icon in der exe integriert ist.
Bei einer *.lnk Verknüpfung ist ja nur ein Verweis drin, der auf ein Icon zeigt (z.B. wenn man in Windows die Eigenschaften einer Verknüpfung aufruft und dann auf "Anderes Symbol" klickt, erhält man diesen Verweis auf das Icon).

Diesen Verweis einer *.lnk will ich jetzt mit Delphi auslesen,
und dann das Icon in ein TBitmap laden.

Der Verweis zeigt meißtens auf eine EXE-Datei, ICO-Datei oder DLL-Datei, die dann das Icon enthalten.

Also müsste ich erst den Verweis auf das Icon auslesen,
und dann das Icon aus der EXE, ICO oder DLL extrahieren und in ein TBitmap laden.

Weiß da jemand eine Lösung?